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You hover on the fringe, five parsecs 
from initialization of your mission. Your 
culture is tired and in need of new vitality. 
The Chamber can duplicate the essence of 
life from any species and you're about to 
start your "collection." What fate awaits 
you on this unique mission? Is it true that 
cultures opposed to your sampling have 
been preparing their defenses and stand 
ready to resist your intrusions? 

The first module is prepared for take off 
— diversions thru Envyrn^'^ presents 
Parsec^^, a graphics space adventure 
unlike any you've ever played. Parsec^", 
created with the Envyrn^'^ graphics editor, 
simulates deep space in your TRS-80° 
computer, creating an action-filled field of 
play larger than any other microcomputer 
game. Parsec^'^ takes you beyond the 
screen and into worlds not yet seen by you 
or your computer. Join the adventure — 
subscribe to diversions thru Envyrn^" now 
or send $20 for Parsec'^^, the. first of six 
modules to be released in 1982. Each 
module includes a magazine and a disk. 






liversions 



thru Eni^t^rn 



6 South Street Milford, NH 03055 

n One-year subscription (6 modules) — $60.00 
D Sample EnvyrnmentTM Parsec"'''^ only — $20.00 
Name 



Address. 



City/State 



-Zip- 



n .Payment enclosed 

□ MasterCard D VISA 
Name of Cardtiolder 



ExD.Date_ 



MC#and lnterbank#/VISA#_ 
Signature 



To order use the card provided in this issue or send in this order blanl^. 

I own a 48K TRS-80® with Disk D Model I D Model III 

TRS-80 is a registered trademark of Tandy Corporation 




HAVE WE 

GOTAPROGRMi 

FOR YOU IN'82 

Over 150,000 computer owners and novices attended the 1981 
National Computer Shows and Office Equipment Expositions, 
and more than a quarter of a million are expected to be at the 
1982 shows. 
Each show features hundreds of companies using thousands 
of square feet of display space to showcase and sell millions of dollars 
worth a< 'iiicro and mini computers, data and word processing equipment, 
peripherals, accessories, supplies and software. 

Lir id'.i one roof you'll see — and be able to buy — all of the hardware 
and software made by every major computer manufacturer for busi- 
ness, industry, government, education, home and personal use. 

The show includes computers costing as little as $100 to com- 
N^ puters selling for $ 1 50,000. 

Don't miss the coming of the new computers — show up for 
the show. Admission is $5 per person and $3 for children. 



Ticket Information 

Send $5 with the name of the show you 
plan to attend to National Computer 
Shows, 824 Boylston Street. Chestnut 
Hill, Mass- 02167 Tickets can also be 
purchased at the show. 



Dallas 
Dallas Market Hall 

Thursday-Sunday 

April 15-18, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: 

2200 STEMMONS FREEWAY 

(AT INDUSTRIAL BLVD) 



Uniondale, Long Island 
Nassau Coliseum 

Thursday-Sunday 

April 22-25, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE L.L EXPWY 

TO EXIT 38 NO. STATE PKWY 

TO EXIT 31 A MEADOWBROOK 

PKWY SO. TO EXIT M5 

HEMPSTEAD TURNPIKE 



Minneapolis 
Minn. Auditorium 
& Convention Hall 

Third Avenue 

Thursday-Sunday 

September 16-19, 1982 

11 AM to 6 PM Dally 

DIRECTIONS: HWY 94 to 
11th St. Exit to Third Ave. 



iHL 






Washington, DC 
DC Armory/Starplex 

Across from RFK Stadium 

Thursday-Sunday 

October 28-31, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: 

2001 E. CAPITOL ST SE 

(E. CAPITOL ST EXIT OFF 1-295 

— KENILWORTH FRWY) 



Chicago 

(Arlington Heights) 

Arlington Park Racetrack 

Exhibition Center 

Thursday-Sunday 

November 5-7, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: EUCLID AVE & 

WILKE RD. TAKE NW TOLLWAY 

TO RTE 53 EXIT AT 

EUCLID AVE EAST 



Boston 
Hynes Auditorium/ 
Prudential Center 

Thursday-Sunday 

November 11-14, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE MASS 

PIKE TO PRUDENTIAL 

CENTER EXIT 



Atlanta 
Atlanta Civic Center 



Thursday-Sunday 
December 9-12, 1982 
11 AM to 6 PM Daily 

DIRECTIONS: 

395 PIEDMONT AVE NE 

(AT RALPH McGILL BLVD) 



The National Computer Shows are produced by Northeast Expositions Inc. who also produce Electronica — shows featuring home entertainment equipment and personal 
electronics — which are held annually in major US cities. NEI also produces the Applefest Shows. For more information about any of these events call us at 617-739-2000 
or write to the above address. 
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Micro text 1.2 

by Jon R. Voskuil 

SoftSide's basic BASIC word processor 
for all three systems acquires line editing 
capabilities, plus a few changes to the two 
previous installments. 



FEATURES 



Sensuous Programmer 

by "J" 

"J" concludes a year-long exploration of 
the ins and outs of the intimate art of 
BASIC programming with some 
philosophical meanderings. 



15 

Introduction to 
Word Processing 

Review by Dave Albert 

18 

Word Processing: 
An Art in Transition 

by Tom Stanton 

This informative essay on the history of 
the written, printed, and electronic word 
leads to some fascinating questions about 
the future. 

96 

Machine Head 

by Spyder Webb 



11 
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My Side of tlie Page 

by Lance Micklus 

For those who like to encourage their 
computers to talk to other people's 
computers, this extensive discussion of 
modems should prove to be very helpful. 

SoftSide 
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Enhanced Disk Version 

SEMAPHORE by Richard A. Bryant 
Semaphore is a form of "word processing" that predates 
computers by quite a few years. This unique Hi-Res 
graphics program will enlighten you about a kind of flag- 
waving quite unfamiliar to most of us. 

Disk and Cassette Versions 

APPLE F.O.O.L.S. by Jon R. Voskuil 
DV and CV subscribers get a sneak preview of the "Apple 
Fully Optimized Operational Language System" which will 
appear in listed form in next month's magazine. 

K-Byter 

BATTLESHIP by David Bahr 

The old favorite board game is revisited in this compact 

computerized incarnation. 



Programs 

WHITE LIGHTNING by Randy Fox 
You'll have to develop quick reflexes to keep from 
zapping yourself out of this game. Your score soars as you 
intercept elusive graphics blocks, but each time you get 
one it's harder to maneuver. 

POSTER MAKER by Fred J. Condo 

If you have the need (or just an irresistable urge) to print 

out large-letter posters, this is just what your Apple needs. 



48 Comparative Review: 

THREE APPLE TEXT EDITORS 

SuperText II, SuperScribe II, Apple Writer II reviewed by 
Jon R. Voskuil 
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54 K-Byter 

CRYPTO by Jerry Aamodt 

This is an entertaining code-breaking game, coded into 

just the form for you and your ATARI® to solve together. 

55 Enhanced Disk Version 

RENUMBERING FOR THE ATARI® by Frank Roberts 
Anyone who has written a program from scratch knows 
how messy the line numbering can get after all the 
changing and revising is done. This program lets your 
computer do the grubbing work of renumbering the whole 
thing in nice, neat increments of your choice. 
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Programs 

STARBASE 13 by Mark Lewis Baldwin 
This one will give you some heavy practice with your 
joystick as you defend yourself against attackers from all 
directions. It's only a matter of time.... 

ATARI® BANNER MACHINE by Alan J. Zett 
This unique banner-printing program works not only with 
normal characters, but with any redefined character set 
that you care to program into your computer. The 
possibilities are limitless. 

Comparative Review: 

WORD PROCESSING PROGRAMS 
FOR THE ATARI® 

Letter Perfect, Text Wizard, and Word Processor reviewed 
by Sheldon Leemon 
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67 
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K-Byter 

MICRO ADVENTURE by Joseph Felten 
Adventure veterans and beginners alike will enjoy this sub- 
compact interactive game. 

Enhanced Disk Version 

SCREEN PRINT by Steven Milliken 
Install a Machine Language routine into memory, and you 
can dump the text and graphics displayed on your screen 
to a printer — even while another program is running. 

Programs 

GOTHIC LETTER PRINTER Ronald M. Tutone 
This remarkable program creates large letters in a 
beautiful Gothic font on your favorite printer. You'll have 
no more excuses for sloppy garage sale signs. 

DATABASE by Mark Pelczarski 

Translation of the Month, with Enhancements, 

by Robert Jacobs. 

This is a completely updated version of SoftSide's 

Developing Database, in two versions: sequential access 

and random access. Those who have long awaited this 

complete TRS-80® version will not be disappointed. 

Article 

DOSPLUS — What Does it Mean? by Alan J. Zett 
The complete list of all DOSPLUS BASIC error messages 
— fully explained. 



Reviews 

86 REFW ARE'S THESAURUS by Kathleen Boucher 

88 MICROPROOF by Dave A. Kater 

91 HEXSPELL by Dave A. Kater and David R. Long 

93 NEWSCRIPT VERSION 6.1 by Joseph Breton 
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The Most Spectacular Extravaganza Ever. . . 

For Apple Users 



At Applefest '82 hundreds of manufacturers, 
distributors and dealers will showcase the entire 
spectrum of Apple-compatible products including 
computers, components, peripherals, plug-in cards, 
publications, gifts, magazines, services, accessories 
and software for home, office and school. 
Hands-on centers and multimedia presentations will 
demonstrate the newest applications for business, 
education and entertainment. 
Seminars and worl<shops, conducted by the world's 
leading Apple authorities, will detail new uses to 
make your Apple more enjoyable and more useful 
than you ever imagined. 

You'll meet thousands of other Apple owners and find 
the newest of everything for your Apple under one 
roof . . . and for sale at super show prices. 
So if you use an Apple ... or are thinking about 
buying one, you won't want to miss a minute of 
Applefest '82. 

Ticket & Hotel Information 

Send your check and a note indicating the specific show you wish 
to attend. Tickets and hotel information will be mailed back to 
you. Tickets can also be purchased at the show. Make all checks 
payable to Northeast Expositions Inc. 824 Boylston Street, 
Chestnut Hill, Mass. 02167 Tel: 61 7 739 2000. 

Exhibitor Information 

For specific exhibitor information on one or all of the Applefest '82 
shows call Northeast Expositions at the telephone number above. 



Applefest/Boston 

Fri-Sun May 14-16, 1982 

Hynes Auditorium 

Show Hours; 1 1AM to 6PM Daily 

Admission: $6 per day or $10 for 2 days, 

$15 for 3 days 

Applefest/Minneapolis 

Thurs-Sun Sept 16-19, 1982 
Minnesota Auditorium and Convention Hall 
Show Hours: 1 1 AM to 6 PM Daily 
Admission: S5 per day or S8 for 2 days, 
$ 1 2 for 3 days, S 1 5 for 4 days 

Applefest/ Houston 

Fri-Sun Nov 19-21, 1982 

Albert Thomas Convention Center 

Show Hours: 1 PM to 1 0PM Daily 

Admission: $5 per day or $8 for 2 days, S 1 2 for 3 days 

Applefest/San Francisco 

Fri-Sun Dec 3-5, 1982 

Moscone Center 

Show Hours: 1 PM to 1 0PM Daily 

Admission: $5 per day or $8 for 2 days, $12 for 3 days 

Applefest is produced by Northeast Expositions Inc. and Is sanctioned 
by Apple Computer Inc. and The Boston Computer Society. 

*Apple and Applefest are registered trade and service marks of Apple 
Computer Inc. 
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"Beneath the rule of men entirely 

great, 

The pen is mightier than the 

sword. " 

(Edward Bulwer-Lytton) 



"Words, words, words — Vm so 
sick of words! 

I hear words all day through, 
First from him, now from you! 
Is that all you blighters can do?" 
(Eliza, in My Fair Lady) 



"And God said, 'Let there be 
light. ' And there was light. " 

(Genesis) 



"But the words — oh, the words — 
They don 't come easy. " 

(Mac Davis) 



It seems that we've always had 
mixed feelings about words. On the 
one hand, their power and influence 
are undeniable. In the Genesis account, 
it was the power of the divinely spoken 
word that brought the world into be- 
ing. And humanly spoken words, too, 
are acknowledged as being more 
powerful even than battles in shaping 
the course of history. On the other 
hand, along with Eliza (and especially 
when sitting through an evening of TV 
commercials), we get saturated with 
the endless flow of words that inun- 
dates us. And because words have been 
so cheapened by abuse, there are times 
when we can't find the right ones to ex- 
press the really deep and important 
things at the center of our lives. 

Much of everyday living is spent in 
communicating with other people by 
means of words. And more and more 
of those words are being processed 
electronically. All of us are accustomed 
to electronic communication: The 
telephone has been a fixture of life for 
a long time. But not everyone is ac- 
customed to being able to manipulate 
words in the ways that computers can 
— which puts even the best politicians 
to shame. Throughout more years of 
school than I care to think about, I 
pounded typewriter keys week after 
week, as term papers and lab reports 
came due. Erasable bond typing paper 
was one of my major budget items. 
Throughout eight of the past nine years 
since then, I've continued to pound the 
typewriter keys, as I've continued to 
produce ten to 20 pages of written 
material each week. (Certainly not 
much compared to what a professional 
writer would produce, but enough to 
make me weary of erasers and correc- 
tion fluid.) 

During this past year, however, I've 
been (a) writing more than ever before, 
and (b) enjoying it more. Item (b) is 
due largely to the computers which 
have been helping to remove much of 
the tedium from the writing process. 
Those of you who have used one of the 
many excellent text editor programs 
SoftSide 



available know what I'm talking 
about. Although I still use a typewriter 
occasionally (and even put pen to 
paper from time to time), it's difficult 
to imagine going back to handwritten 
and typed manuscripts for serious 
writing. Writing with a quill and scroll 
by candlelight is romantic, but not my 
cup of tea. 

As you've undoubtedly noticed, a 
major theme of this issue of SoftSide is 
computerized word processing. That's 
just a little off the primary path of 
entertainment that we usually tread, 
but we think most of our readers (with 
the exception of one or two in our own 
programming department) see life as 
more than one big arcade game, and 
are looking for varied applications for 
their computers. Besides, many of us 
do find writing to be entertaining; and 
using a computer to do a lot of the 
hard work makes it more so. 

Ironically, we've chosen this issue to 
announce that our recent experiment in 
computerized submissions procedures 
hasn't turned out to be all we had 
hoped. (See "Outgoing Mail.") 
Sometimes computers can get in the 
way more than they can help. At that 
point, one has to decide whether it's 
worth it to put up with the computer's 
clumsiness for the sake of some future 
goal. This is a legitimate approach; we 
do it with young children all the time. 
The alternative is to decide that the 
computers (or we) just aren't ready for 
handing over that particular task yet. 
This is the decision we've reached on 
this one application of word processing 
in our precise situation. That's not an 
indictment of computerized word pro- 
cessing, but an indication that (a) we 
really don't have the right computer 
for the job, and (b) computers aren't 
smart enough to do all the jobs that 
real people (especially editors) do. 

Let me leave you with just one addi- 
tional warning about the limitations of 
computerized word processing: Keep 
writing your love letters with quill and 
scroll by candlelight. © 

April J 982 5 
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Due to the response we've received from our 
survey published in February, we wanted to 
share some of the comments with you in this 
month's Input. 



"1 like the articles as much or more than the 
programs. Especially Lance Micklus' My Side of 
the Page series and the articles by Scott Adams. 
The ones on the problems of marketing software 
and naming them are especially interesting! 
Hardware Corner on the problems of printer in- 
terfacing was good as were the disk articles. 

After spending hours keying in Quest I had to 
go out and buy more RAM to make it work on 
my ATARI®. Aargh!!! The warmed over TRS- 
80®programs that are translated for 
ATARI® and don't take advantage of the 
available graphics are frustrating. Actually I 
have nothing but respect for the TRS- 
80® programmers who can squeeze so much out 
of their limited B&W graphics. BRAVO for 
Microtexl." 

Richard S. Waller 
Seven Hills, OH 

Editor's Reply: We try to publish the best soft- 
ware available for each system and we carefully 
select the best programs from the submissions we 
get. Since we receive few ATARI® submissions, 
we try to work around the problem. To get the 
ATARI® version of Quest to fit in 24K see 
"Bugs" in the December issue. 



"On the whole, I would say that SoftSide is an 
excellent magazine. There are a few things I 
would like to mention though: 

Arcade games, TRS-Man, ABM Command, 
although well written, are just too slow for 
BASIC. Simulations, e.g.. Titan, Dairy Farm- 
ing, Bridge Contractors, etc., seem to be the 
same thing only different settings. 

Anything written by Edward Umlor is great! 
Keep up the good work! 

One Liners are amazing at times. The prob- 
lem: incovenient to store & run separately — 
possible solution: Alter published ones so that in- 
stead of running infinitely as most do, have the 
current line transfer control to the next One 
Liner. These could then all be saved in one file. 

Give quicker response to program submis- 
sions. 

More Assembly programs & articles, 
PROG-80 are you there?? 

More application programs & ideas. Printing a 
picture of the main screen in a program is a good 
idea — more of this. 

How about some sort of chart which would 
show the best possible translation of a statement 
from one BASIC to another. Thanks for a great 
magazine." 



Stephen Milliken 
Randolph, MA 
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"Fully enjoy SoftSide magazines. I have 
dropped three other publications to start 
(TRS-80®) SoftSide DV. Articles covering given 
equipment are far more useful than ones in 
general that can not easily be converted to your 
machine. Keep it coming." 

Roland E. Long 
Cincinnati, OH 



"I find typing programs a most useful help in 
learning to program — this is why I'm not buy- 
ing the Disk Version, although it's tempting. 
All articles & columns for real beginners are bet- 
ter in your magazines than most — easier to 
understand." 



"I have every issue of SoftSide from the very 
beginning. I am pleased to congratulate you on 
the present state of SoftSide. Although I've had 
my "trying times" with your subscription and 
shipping departments, I still look forward to 
receiving my magazines and ATARI® DV every 
month! Keep up the good work!!!" 

Mansel H. Crowell 
Vincentown, NJ 

Editor's Reply: Thanks (o all of those 
subscribers who have had subscription problems 
in the past for having patience. Bear with us as 
we make an attempt to go from our in-house 
subscription facilities to our use of a national 
subscription fulfillment house. 



"Please consider reprinting SoftSide Develop- 
ing Database. I missed the first issue which is no 
longer available! (This is the reason I'm not us- 
ing it.) 

I think your graph showing the advantages of 
the CV is great, but while those that don't have 
the CV are correcting (typos) I'm still waiting for 
the cassette to arrive! . . . 

Spyder, my man. Machine Head has got to be 
the No. 1 micro cartoon! Keep it coming! From 
someone who operates from the right side of the 
brain, Spdyer, I'm asking you to keep all those 
logical thinkers loose enough to allow some im- 
agination — to enter the programming of the 
future!! Where can 1 get a T-shirt with the Soft- 
Side logo on it? You people at SoftSide have 
more than customers out here, we're your 
FANS!" 

T.J. Pryts 
Sharpsville, PA 



"I have liked the changes you have made in the 
past year particularly: DV, Microtext, and 
Database. Also, the games have improved and 
mechanics of loading and operating have im- 

SoftSide 



proved. During the time of transition to DV, I 
often had to wait up to 3 weeks between receiving 
the magazines & disk but that seems to have 
worked out now too!" 



M.C. Shannon 
Ft. Worth, TX 

Editor's Reply: As you DV and CV subscribers 
know, we are now mailing the magazine and 
media so they arrive at approximately the same 
lime. Three cheers! 



"If these comments are truly read, then know 
that SoftSide can stand some improvement. 1st) 
Magazines should arrive before they get to the 
store. 2nd) A toll-free phone number for 
customer service should be available. I've spent 
over $100.00 trying to straighten out my 
subscription. 3rd) As of this date I am still trying 
to change my subscription from cassette version 
toDV. 

Now for the good part: Your series "The Sen- 
suous Programmer" is excellent. The Database 
series should be offered as a programming course 
in its completed form when it's finished. Thank 
you, I will continue my subscription for 1 more 
year, if I can get ATARI® DV!!!" 

Steve Salkin 
Palm Springs, CA 



Editor's Reply: 1. The mailing of magazines to 
dealers and subscribers is done at the same time. 
Because the dealer packages go UPS and the 
other magazines go Second Class, there is a time 
difference in arrival. Nothing can be done to 
change this. 2. We do have a toll-free number for 
subscription inquiries. See the Table of Contents 
page. 3. It takes 6-8 weeks for the changes in 
subscriptions to take effect. 



"Now have a subscription to ATARI® DV. 
You should include DOS 2 on each disk and 
make the cover program auto-booting! 

When 1 receive each disk, there are usually 
some free sectors left. Why not fill the unoc- 
cupied space with something? You could fill it 
with back issue information, ads, or a catalog of 
items with prices of things offered by The Soft- 
ware Exchange. 

Congratulations, February disk and magazine 
got to me by Feb 2; this is the fastest I've received 
them! I would like to be able to dial up Com- 
puServe and download SoftSide programs; I'm 
set up for this now." 

Editor's Reply: The reason the DOS has been 
taken off the ATARI® DV Is due to a request 
from Atari. We cannot get permission to include 
the DOS. You must first boot up an ATARI® 
disk to use ATARI® DV. 



As for the free sectors on your disk, we are going 
to be adding (he K-Byters to the media and may 
possibly use your suggestion for the remain- 
ing space. 



"For me the most useful feature of SoftSide 
has been the Database manager. Further 
developments in this area would be of value to 
me. I purchased DV subscription to save my time 
helping my son enter games from the magazine. 
However with additional utilities or editors and 
extensions of Database & Microtext I may con- 
sider continuing the DV for its value to me. The 
games — Quest, Titan, esp. — have been 
generally excellent. Suggest more Hi-Res use of 
Apple graphics. Some of your columns have 
been very good (Plaudits to Sensuous Program- 
mer especially.)" 

Eugene R. DeSombre 
Chicago, IL 

Editor's Reply: Because SoftSide relies on sub- 
misssions, we are sometimes limited in what we 
publish. Ail you programmers out there — take 
note. 



have presented some excellent programs for the 
ATARl®which are beginning to use 
ATARI® capabilities. ..." 

Bob Dewitt 
Provo, UT 

Editor's Reply: We are hoping to publish an arti- 
cle on how to translate from one system to 
another — a great suggestion made by a few peo- 
ple. These types of suggestions are what we 
hoped the survey would generate. Thanks. 



"Your magazine is great — I wish it were 
published twice a month. The programs are ac- 
curate and I find the errors are usually my inac- 
curate typing. I would like more business ap- 
plications — Alan Zett has been outstanding for 
me when solving problems. Since we're new 
owners, debugging has been somewhat difficult. 
Without him we would still be on our first pro- 
gram. Keep up the good work and thanks for 
your sincere cooperation." 

Ronald S. Cohen 
Lyndhurst, OH 



moting cooperation, communication, under- 
standing and "civilized behavior" among owners 
of "different" computers. Keep up the good 
work and good programs, and keep SoftSide 
together as one magazine. I sure wouldn't com- 
plain if it was thicker than BYTE!" 

Mark Reid 
S. Charleston, WV 



"SoftSide is the only dependable source for 
good game software at a reasonable price. 1 have 
just subscribed to the cassette version as the pro- 
grams longer than 16K take too much time to 
type in and debug. I have had very good results 
with most of the listings in SoftSide. Most of my 
software library is from SoftSide. Keep up the 
good work." 

Lee S. McPherron 
Thornton, CO 



"If you are not going to pubUsh a Model 111 
DV, then could you at least make sure that the 
extra DV programs work on Models l/lll? It is 
very annoying to get a disk with programs like 
NEWBASIC or HELP that I cannot use." 

Jeff Metzner 
Loudonville, NY 

Editor's Reply: By the May issue, we hope to 
make available separate Model I and Model III 
versions of DV. We are using the survey (o see 
how many of our subscribers have each system. 



" 1 . You could possibly include a section about 
new users groups. 2. Couldn't you provide some 
extras for C/V subscribers — like giving all C/V 
subscribers a bonus cassette like that which you 
offer to new subscribers. Why not include 
"hybrid" and machine language programs on 
C/V SoftSide, You would be surprised what can 
be done with cassette! (e.g., C/oarf magazine & 
Load 80 from Cload Inc. and 80 Microcom- 
puting, respectively.) Keep up the good work!" 

Ben Davis 
Amarillo, TX 

Editor's Reply: We at SoftSide are in the process 
of compiling all the cards sent in for users 
groups. Watch future editions of SoftSide. 

"1 appreciate your efforts to support the 
ATARI® & I applaud your decision to finally put 
articles for the specific machines into their own 
"side" a la Compute. It makes your magazine 
much more useable. I certainly don't object to 
having programs for the other machines included 
in the same magazine, but realistically, there's 
not much useful dialogue that can occur until we 
understand each other's languages enough to 
make translations. How about a meaningful 
series of "Rosetta Stone" articles for that pur- 
pose? Obviously, a machine specific magazine 
would be nice, but I'm afraid the ATARI® edi- 
tion would only be four or five pages long. (I 
think that because the ATARI® has been (er- 
roneously) billed as merely a "non-serious", 
entertainment machine, that fewer of us are com- 
petent programmers. 1 know that I, for one, am 
still learning.) . . . 

Finally, several months ago, 1 wrote you a let- 
ter which was somewhat critical of your support 
of the ATARI®. I now wish to repent & applaud 
your efforts on our behalf. In recent months you 



"It's hard to make constructive comments 
when you are doing such a good job already, 
however, it might be interesting to see some ar- 
ticles about machine language/assembly 
language programming a la the Sensuous Pro- 
grammer. Overall I think the mix of programs 
and articles is very good. 1 particularly like the 
monthly Hints & Enhancements. I'd like to see it 
expanded. Keep up the good work!" 

Chilcott 
Greensboro, NC 



Editor's Reply: We look forward to good hints 
and enhancements being submitted along with 
developing some using our programming staff. 



"My first computer was a TRS-80®. I hated 
the keyboard and graphics. 1 sold it and bought 
an ATARI® 800. My next purchase will be a 
printer. Actually the interface first. I dislike typ- 
ing long programs however your disk version is 
too costly by a long shot. My disk is only one 
month old. I could use some articles on using it. I 
find no one is covering this area for newcomers. I 
would like to see complete addresses on letters 
printed so it would be possible to communicate 
with some of those other people out there. 1 have 
no quips about advertising. You need it, I even 
read it. Another suggestion is small program 
contests! Nothing big, look at Softalk. And 
maybe specifing a problem that can be solved on 
a computer as a routine with some/one solution 
given the next issue, and a new problem, etc. 

Expand to include some assembly program- 
ming. Try to become an interactive magazine to 
be read, pondered, challenged, and acted on. 
Not just a program to be copied. Good Luck." 

Larry Johnson 
Bellingham, WA 



"1 like the idea of separate sections for 
ATARI®, APPLE, TRS-80®, and whatever 
other systems you decide to support. I hope you 
include other systems (such as the Color Com- 
puter) but please don't go back to separate 
magazines, just make one BIG one. I like seeing 
the info on non-ATARI® systems, and there are 
already magazines dedicated exclusively to each 
system. I think SoftSide has found a unique posi- 
tion in the computer magazine industry: pro- 
SoftSide 



"1 would prefer to see a magazine which has 
documentation and advertising with a separate 
code book for each computer." 

Sharon Sloan 
Bedford, TX 

Editor's Reply: We have actually considered the 
use of a code book instead of printing pages and 
pages of line listings. The use of a code book 
would allow us more room for articles and 
reviews — maybe something for the future with 
SoftSide. 



"This is the first issue 1 have seen of your mag. 
It was only luck that I saw your name in the 
A.TARI® APX mag, otherwise I would have 
never known you existed. You have a very good 
mag (which I am going to subscribe to). I like the 
way your programs have descriptions above 
every few lines as to what the lines do. I would 
like to see a longer Q & A column with a postage 
PREPAID CARD in each mag so readers can 
easily send in questions. GREAT MAG! 

Ron Bieber 
Beverly Hills, CA 



Editor's Reply: Great idea about the post card. 
Will consider it in the future. 



"Great magazine, gets better each month. 
More programs that use the special graphic 
(ATARI®) will help — its easy to copy 
TRS-80® & Apple. 

Game Reviews are great — BUT NEED one or 
two pictures of the game in action!!! 

Hope with the addition of TRS-Color that 
there won't be less of the three already: (Pro- 
grams) Home Finance package with Graphics for 
Graphs would also be nice. What are you going 
to do when Microsoft comes out for ATARI®? 
Two Languages?" 

John R. Low 
Portland, OR 

Editor's Reply: When we add the TRS-80® 
Color Computer we will not change our support 
of the Apple, ATARI® and TRS-80® I/III. 

© 
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OUTGOING MA\l 




Greetings! As another issue nears 
completion and is about ready to go to 
press, the excitement at SoftSide 
peaics. We have been worlcing very 
hard for some months to compile all 
the information found in this word 
processing issue. You will find com- 
parative reviews on word processors 
for each system along with Microtext 
1.2 and two additional programs for 
each system. Enjoy! 

Survey 

We are starting to get back quite a 
few of your surveys from the February 
issue. Due to the response, we felt it 
would be worthwhile to use this 
month's Input column to share some 
of the comments with you. The 
answers to the survey will be very in- 
fluential in deciding what will be in 
future issues of SoftSide. We need 
reader input because this magazine is 
published for you, the reader. So by 
printing some of the comments we 
have received, we hope to inspire those 
of you who haven't returned your 
survey to do so as soon as possible. 
Keep those surveys coming! 

Media Subscribers 

You media subscribers will be happy 
to know that starting with the March 
issue for the Apple and this issue 
for the TRS-80®and ATARI®, the 
K-Byters will be included on your 
respective media editions. 

After many months of trying to get 
the magazine and media to arrive 
together, we finally succeeded. On the 
survey, the most frequent comment 
from our media subscribers was that 
they received their disks a few days 
before the magazines. It wasn't easy! 
But after finally finding the best 
sources of duplication and arranging 
our schedules, we have managed to 
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eliminate the time-lapse problem. 
Thank you all for bearing with the 
problem and having patience while we 
solved it. 



SoftSide Authors 

In the December issue of SoftSide, 
we asked that all program submissions 
be sent with documentation on disk or 
tape, using the Microtext word pro- 
cessing program. We have been living 
with this experiment for awhile now, 
and have come to realize that there are 
worse things in life than files of paper 
to be maintained. One of those things 
may be files of disks and tapes which 
can't be accessed without a spare com- 
puter (of the right breed) at hand. 

THUS WE HAVE DECIDED FOR 
NOW TO RETREAT BACK INTO 
THE PAPYRUS AGE AND ASK 
THAT AUTHORS ONCE AGAIN 
SEND ALL DOCUMENTATION ON 
PAPER. We encourage you to include 
text files on tape or disk as well, but 
this is not required. 

A new Author's Guide will be com- 
pleted shortly, detailing submission 
standards and procedures for those 
who may not be familiar with them. 
It's free for the asking — but a self- 
addressed, stamped, business-size 
envelope would be much appreciated. 



Subscription Changes 

For all of you who are upgrading 
your subscription to a media version of 
SoftSide, starting a new subscription, 
making an address change, or ordering 
back issues, please realize that you 
must have patience for approximately 
4-6 weeks. It takes that long for the 
changes to be keyed in and to show up 
on the new mailing labels generated by 
our fulfillment house. 

SoftSide 



It probably is difficult for a 
subscriber of any magazine to imagine 
what is involved to produce and get 
you that magazine each month. In 
order for an issue to arrive at the begin- 
ning of a month, the printing and mail- 
ing must happen in the middle of the 
previous month. Therefore, any 
changes to subscription information 
keyed in after the first two weeks of the 
month will not show up on the labels 
attached to the magazine until the 
following month. If, after allowing this 
amount of time, you still have a ques- 
tion or doubt about your subscription 
please feel free to contact our fulfill- 
ment house in Broomall, PA at the 
toll-free number found on the Table of 
Contents page. You can also use this 
toll-free number to order subscrip- 
tions, make changes or order back 
issues. 

On another note, I'd like to take this 
time to say how proud we are of our 
programmer. Rich Bouchard. A 
member of the Computer Science 
Team at Milford (NH) High School, 
Rich ranked second in the American 
Computer Science competition. His 
ranking is a result of two of the five 
contests in which the school will com- 
pete this school year. We are proud to 
have him on our team of programmers 
at SoftSide. Keep up the good 
work, Rich. 

Well, enough of the news, info and 
gossip of SoftSide. I'll let you get on to 
the best part of SoftSide — the pro- 
grams, articles, and especially this 
month's reviews. We'll be watching the 
mail for more surveys and your input. 

Until next month, Happy Hacking. 



Nancy Lapointe 
Managing Editor O 



SENSUOUS PROGRAMMER 




Back in 1947 (the year of my birth) a 
man named Alfred P. Morgan wrote 
the Preface to the second edition of his 
book, The Boy Electrician. In that 
Preface he wrote as follows: 

Once upon a time, and this is a true 
tale, a boy had a whole railroad system 
for a toy. The train ran automatically, 
propelled by tiny electric motors, the 
signals went up and down, the station 
was reached, a bell rang, the train 
moved on again and was off on its 
journey around many feet of track to 
come back over the old route. 

The boy viewed his gift with rap- 
tured eyes, and then his face changed 
and he cried out in the bitterness of his 
disappointment: "But what do I do?" 
The toy was so elaborate that the boy 
was left entirely out of the play. Of 
course he did not like it. His cry tells a 
long story. 

The prime instinct of almost any boy 
at play is to make and to create. He will 
make things of such materials as he has 
at hand, and use the whole force of 
dream and fancy to create something 
out of nothing. 

As I was growing up, I waged a 
single-minded campaign to keep The 
Boy Electrician from gathering dust on 
the shelf of our town's Hbrary. I suc- 
ceeded pretty well. Finally my father, 
taking pity on my frayed library card, 
bought me my own copy of that 
wonder-filled book. 

Its chapter titles induce waves of 
nostalgia as I look at them on the desk 
in front of me. "Voltaic Cells and Bat- 
teries" guided me through the con- 
struction of many a homemade battery 
(some more successful than others). 
"An Experimental Wireless 
Telephone" gave me the idea for a 
prize-winning Science Fair project in 
sixth grade on magnetic induction. 
"Electrical Measuring Instruments" 
taught me about galvanometers and 
Wheatstone bridges, concepts I later 
used (in the eleventh grade) to design 
sensitive measuring instruments 
necessary for a chemistry lab project. 




My friend Charlie and I built our own 
radio following the instructions in 
"How to Build a Radio Receiver with a 
Crystal Detector." 1 even got a couple 
of working motors out of the chapter, 
"Electric Motors," and some first- 
hand experience with silver plating 
from the jam-packed twenty-first 
chapter, "Miscellaneous Electrical Ap- 
paratus." These many years later, as I 
page through that 407-page book, each 
illustration is as familiar as if I had 
drawn it myself last week. 

I now have a son who is six years 
old. He's still a little young for The 
Boy Electrician. You might think that 
a book written 35 years ago about ex- 
perimenting with electricity would be a 
little out of date for him anyway. 
Maybe it is. After all, this is the com- 
puter age. Who cares about making a 
microphone using a carbon rod and 
binding posts rescued from a discarded 
No. 6 Ignition Cell? (Who even knows 
what a No. 6 Ignition Cell is, 
anymore?) Who would ever want to 
make a Leyden jar, or a reflectoscope, 
or a night light with a little hook for 
hanging your pocket watch so that you 
can read the time in the dark? 

After pulling that book off the shelf 
SoftSide 



this morning, and reading the 1947 
Preface, I turned to the back of the 
title page and found the original 
copyright date: 1913. The book that 
had been so formative in my childhood 
had been written two years before my 
father was born. Undoubtedly, Alfred 
P. Morgan has died sometime in the 
past 35 years. As far as I know, he 
never did follow up on a possibility he 
expressed in the last sentence of his 
book: "And, as the future years bring 
new inventions and discoveries, no one 
now knows but that, some day, 
perhaps I shall write another "Boy 
Electrician." 

The pace of change is unques- 
tionably far greater now than when 
The Boy Electrician was written, or 
when I was a boy. The years that 
elapsed between those two periods saw 
nothing in the advance of scientific and 
technological knowledge, compared to 
that which has occurred since then. 
Even though the first computers were 
becoming a reaUty by the time Alfred 
P. Morgan wrote his second Preface, 
he probably didn't dream that so much 
could happen so quickly. 

Now that such sophisticated elec- 
tronic devices as Apples and ATARI® s 
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SOFTSIDE'S BEST 
FROM THE PAST 



^^Don 't it always seem to go. 

That you don V know what you We got 'til it's gone... " 

Joni Mitchell 

\jad to say, Quest 1 and Flip-It, two of the most popular 
programs that ever appeared in SoftSide, are no longer 
available in print. But don't despair: SoftSide Publications 
is reprinting these two exciting games in a convenient, 
easy-to-use steno notebook format. 



QUEST 1 



FLIP-IT 





Quest 1 is an exciting journey 
into an underground maze in 
search of treasure and adven- 
ture. A host of Undead and 
other unseemlies await the in- 
trepid explorer. Armed only 
with sword and bow, you must 
rely on quick thinking to sur- 
vive. And don't let the wraiths 
sneak up behind you! 



Flip-It is an excellent im- 
plementation of the board game 
Othello™. Match wits with a 
formidable opponent: your 
computer. 



ORDER YOURS NOW! 

Our special introductory price for this outstanding soft- 
ware value is only $2.95 for each booklet. Be sure to order 
now, before we come to our senses! 



53ft5^a< 



6 3outh5tr«ct MJIford NH 030SS 

See page 16 for ordering information. 



and TRS-80®s are becoming the every- 
day backdrop of our lives, has the sim- 
ple boyhood romance gone out of ex- 
perimentation and discovery? Is the 
computer another toy so elaborate that 
all we can do is sit back and ask, "But 
what do I do?" Has everything been 
done for us inside those chips and upon 
those printed circuit boards, so that 
there's little left that demands creativi- 
ty and imagination? Has a person who 
has purchased a "canned" home com- 
puter utterly sold his soul to the devil 
of passivity? 

Anyone who has experienced the 
agonies and the ecstacies of computer 
programming knows that the romance 
of experimentation and discovery is 
not dead. Certainly its form has 
changed. Involvement with a computer 
is more mental and less physical than 
involvement with an electromagnet 
made from a nail, a battery, and a few 
yards of wire from the hardware store. 
It is, I think, less intimate in a way — 
more detached, more ethereal, less 
nitty-gritty. Computers share many of 
the strengths and weaknesses of televi- 
sion, a powerful medium which at once 
exposes us mentally to more of reality 
than we would ever experience on our 
own, and at the same time lulls us into 
a physically passive rut. Just as televi- 
sion ought to be only a small part of a 
well-rounded life, among a great many 
other activities, computer program- 
ming should never be the sole creative 
outlet in a person's Hfe. I'm going to 
see to it that my son winds elec- 
tromagnets as well as typing keys and 
twisting game paddles. 

Yet computers are stimulating in a 
unique way — even romantic, as hard 
as that may be for many people to 
believe. As I argued in my first col- 
umn, the "inner reason" for existence 
which all computer programs share is 
to solve a problem of some kind, and 
that is surely a creative and sometimes 
romantic activity. I guess that if I 
weren't romantically involved with 
computer programming, I wouldn't 
have had any interest in writing this 
series of columns. And I presume that 
if you weren't involved in a similar 
way, you wouldn't be reading them. 
(The only people I can think of to 
whom that definitely wouldn't apply 
are friends and relatives upon whom I 
foist each issue of the magazine, 
saying, "Look! I'm the Sensuous 
Programmer!") 

If, in any way, these articles have 
helped in the process of discovery 
and experimentation, then their pur- 
pose has been fulfilled. And who 
now knows but that someday, perhaps 
I shall write another "Sensuous 
Programmer." O 
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My Side 
of the Page 

By Lance Micklus 



First this month, let's catch up on 
some of the news about our old friend, 
The Mean Craps Machine. Some time 
ago, I told you that Scott Adams and I 
had decided not to try to sell the game 
for the Model I/III and instead just 
concentrate on the Color Computer 
market. 

Well, it turns out that Adventure In- 
ternational can now make a tape which 
will load on either the Model I, Model 
III, or the Color Computer. This 
means that after Scott makes the 
master tape, he can sell all three ver- 
sions with no more effort or expense 
than a version for one system. So, The 
Mean Craps Machine will be available 
for Model I/III users. 

I also made the comment some time 
ago that the secret to making money in 
this business is to milk a product for all 
you can get. If sales drop off and the 
product goes off the market, publish 
the program and squeeze a few more 
dollars out of it. One of the other pro- 
grams I've brought back for the Color 
Computer is Dog Star Adventure. It's 
an excellent adventure-type program 
for beginners because it's challenging 
but not too much so. As a by-product 
of Scott's new tape recording tech- 
nique, the original Model I version will 
now be available for both the Model I 
and the Model III. 

I consider this to be a major develop- 
ment since it will open up the game 
market to some authors in both the 
Color and Model I/III market all at 
once. This increases the potential for 
sales and is a bigger incentive for more 
work to be done in writing computer 
games. 

Just as interesting is that Big Five 
Software's disk games come on self- 
booting disks. What's more interesting 
is that their disk can boot on a Model I 
or Model III; single or double density; 
with 35, 40, or 80 tracks. It's nice to 
know somebody found a way around 
the operating system problems. 

What happened to Star Trek? Un- 
fortunately, Paramount Pictures and I 
were unable to agree on a license for 



some of the new versions of the game I 
wanted to release. Among the prob- 
lems is that after the Star Trek II movie 
comes out this June, it might be 
followed by a Star Trek III movie. 
Thus, my computer program couldn't 
be called Star Trek III until the third, 
as yet uncommitted, movie comes out. 

Since a name change had to be made 
anyway, I decided to get out of the Star 
Trek loop and change the name to 
StarFlite which I am registering as a 
trademark. This should prevent prob- 
lems with names in the future. 

In case you missed some parts of the 
Getting a Bit Serious series, I may put 
them on my own BBS system if there is 
enough demand. The number of my 
BBS is 802-862-7023. 




Modems, Modems, Who's Got 
The Best Modems 

On my hit parade of the ten most 
frequently-asked questions is this one: 
Who makes the best modem? That's 
about as easy to answer as trying 
to figure out who makes the best 
computer. 

I haven't seen all of the popular 
modems, but I've worked with many 
of them. And of the modems I haven't 
seen, I've heard enough comments 
from people who own them to form 
some opinions. 

The function of a modem is to con- 
vert an electronic signal to an audio 
signal and then back to an electronic 
signal. An audio signal can be 
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transmitted over ordinary dial 
telephone equipment just like a human 
voice can. Thus, the modem interfaces 
the terminal and the telephone so that 
each can receive information in a form 
it can understand. 

About a year ago, we stopped using 
the old acoustical coupler modems in- 
house and went to direct-connect 
modems. This change actually had no 
effect on users of our communication 
products, although it sure cleaned up 
my work space a lot. Until we went to 
direct-connect modems, we had a 
separate desk telephone for each phone 
line. This meant I had three telephones 
sitting next to me so I could use my 
modems on any phone line. After 
getting rid of all of the acoustical 
couplers, I had a ten-button key set in- 
stalled and added another badly- 
needed phone line. 

The acoustical coupler modems are 
the ones with the big rubber cups on 
the top. To use them, you dial the 
phone, and when you hear the tone, 
you place the receiver on top of the 
cups on the modem. One cup listens to 
the phone and the other cup is a 
speaker which talks into it, so there is 
no direct wiring into the phone. The 
advantage of this type of modem is 
that they are cheaper to manufacture 
and avoid any problems involved with 
connecting the customer's equipment 
to telephone company equipment. 

On the negative side, the price ad- 
vantage of acoustical coupler modems 
is now very small. The cost of direct- 
connect modems has come down 
dramatically in the past two years. 
Also, new changes in FCC regulations 
have put the phone companies in the 
position where they can no longer tell 
you that you can't connect your equip- 
ment to their system — provided your 
equipment is FCC approved. 

The almost universal use of modular 
phone jacks makes it easy to install a 
direct-connect modem. However, with 
an acoustical coupler modem, you 
must have a standard headset. The 
cups will not fit such things as a 
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Trimline phone. 

The biggest drawback to acoustical 
coupler modems is that they rely on the 
telephone headset itself. Telephone 
headsets (the things you hold up to 
your ear and talk into) use carbon 
microphones which are not known for 
their high fidelity. Some headsets are 
so bad that you can't even understand 
people when they talk in them, much 
less use them to send computer data. 

You might be able to find a used 
acoustical coupler modem at an ex- 
cellent price. (Make sure you have an 
RS-232 interface first.) If you do, buy 
it; but also understand what you're 
getting and make sure your telephone 
headset is in good condition. 

The direct-connect modems come 
with various features depending on the 
kind you get. Basically, a direct- 
connect modem plugs directly into the 
telephone line rather than trying to talk 
into a headset. Its signal is not de- 
graded by the carbon microphone in 
the headset so the fidelity of the 
transmission is better, which results in 
fewer data errors. Direct-connect 
modems are not bothered by other 
noises in the room and are the only 
practical way to set up unattended 
systems like FORUM-80, MOUSE- 
NET, CBBS, etc. 

Other than the price, there are very 
few other drawbacks to direct-connect 
modems. Perhaps the biggest is that 
you must have a modular jack installed 
to connect it, but that shouldn't be a 
problem. In my case, since I'm using 
one of those business ten-button key 
sets for a phone, I had the phone com- 
pany mount a separate set of modular 
jacks for each line coming into the 
office. 

Just about all direct-connect 
modems offer auto-answer as a stan- 
dard feature. Many of the hobbyist 
ones also offer auto-dial. Unfortunate- 
ly, there are quite a few ways to auto- 
dial a modem and different manufac- 
turers use different methods. If auto- 
dial is important to you, then you may 
find your selection of terminal soft- 
ware very limited. 

There is a new group of modems 
starting to appear which call 
themselves "Smart Modems." Accord- 
ing to Madison Avenue, it's a law that 
"Smart Modems" are better than 
"Dumb Modems." If you don't 
understand what you are buying, you 
may end up spending more money for 
a modem that doesn't do anything 
more or better than the cheaper dumb 
modems. 

Smart modems use computer logic 
chips in them so that they can actually 
read the data you give them before it is 
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transmitted. Certain types of 
characters are interpreted as instruc- 
tions to the modem and are not sent. 
Thus, the smart modem is controlled 
by transmitting certain characters to it 
rather than by turning on and off the 
various handshake signals which most 
terminals have. If you don't have the 
handshake signals to control the 
modem, this is the only way to do it. 
But many terminals and computers do 
have the handshake signals and you'd 
only be wasting your money to throw 
away your handshake signals and pay 
extra to control the modem "the hard 
way." 

I have yet to hear of a smart modem 
made by anyone which can be used in a 
"practical" way for unattended opera- 
tion. What you find is that you have to 
use the handshake signal to control 
your communications in the unat- 
tended environment and don't let 
anybody tell you otherwise. So the 
smart modems either include or will in- 
stall at extra charge the handshake 
signals. This, of course, defeats the 
whole purpose of the smart modem 
which is to control the thing without 
handshake signals. 

If you have a TRS-80® Color Com- 
puter, which has no handshake at all, 
then a smart modem might be worth 
the extra money. But if you own a 
Model III and want to use your modem 
to run a bulletin board, you'd only be 
wasting your money on a smart 
modem. 

The Standard of Excellence 

I have two Anderson-Jacobson 1258 
modems. One is connected to my 
MOUSE-NET bulletin board and the 
other I use for my own communica- 
tions. This is not a hobbyist modem. I 
think the AJ-1258 cost $995, although 
they can be leased for around $55 per 
month. 

The AJ-1258 is a direct-connect 
modem with auto-answer. It does not 
auto-dial. Its main feature is that it will 
run both standard 300 baud and 1200 
baud in either Bell 202 or Vadic modes. 
It automatically selects the standard by 
some magic process I've never com- 
pletely understood. 

Another feature I like is the com- 
plete set of indicator lights on the 
modem. You know exactly what's go- 
ing on. In fact, when somebody calls 
my MOUSE-NET board, I can tell if 
they're using one of my ST80 programs 
and often know which ST80 they're us- 
ing just by looking at the indicator 
lights on the modem. 

More important than the indicator 
lights is that the AJ-1258 correctly uses 
SoftSide 



the handshake signals according to the 
RS-232 standards. Some of the hob- 
byist modems don't and this makes for 
a lot of software compatibility 
problems. 

In terms of performance, the 
AJ-1258 has been answering the phone 
on the bulletin board for almost a year 
now. It's taken calls from all over the 
country on good and bad phone Hnes 
with all kinds of modems on the other 
end. It really does get you through. 

The major drawback to the AJ-1258 
is its high price. Also, the first time you 
try to connect it, you'll have a lot of 
fun fiddling with the more than 40 
switches and jumpers you can change 
around. 

Radio Shack Modems 

The new Modem II by Radio Shack 
won't be out in any quantity until you 
read this. Since I don't have one for 
evaluation now I can't say anything 
pro or con. 

The Modem I seems to be a good 
seller for Radio Shack — almost to the 
point of phasing out the Level II 
acoustical coupler modem. This 
shouldn't be surprising since the 
Modem I is $50 cheaper then the Level 
II modem and it's direct-connect too. 
As everybody knows, direct-connect 
modems are better. Even I said so 
earlier. I should have made one excep- 
tion: The direct-connect Modem I is 
worse than any I've ever seen except 
my old Pennywhistle 103. I would call 
it a tie. 

The Modem I seems to work fine on 
a local phone call to a local computer if 
the telephone line quality is good. 
Naturally, when Radio Shack 
demonstrates their Modem I, they call 
their local CompuServe number and 
can usually get a good connection. 
Then comes the trouble. After the 
customers buy the modem and call 
their own timesharing system, they 
may find that they get a lot of data er- 
rors. If it is a long distance call, they 
may find that they can't even establish 
a carrier at all. 

Almost all of the complaints I get 
from ST80 users regarding data errors 
are from Modem I owners. I have also 
found that Modem I users on my 
MOUSE-NET bulletin board usually 
have a fair amount of trouble. I 
suspect some of them can't even get a 
carrier going, but I have no way of 
knowing this. 

To check this out, my wife Dianne 
and I decided to have a little fun at 
Radio Shack's expense. We were down 
in northern New Jersey for Christmas 
so we decided to go to some of the 



computer stores in Paramus and act 
like your basic dumb customer. 

First we stopped at GEM Electronic 
whose window signs boasted that it had 
microcomputers and low prices. I guess 
their idea of a microcomputer is dif- 
ferent than my idea. They did liot 
know where the Radio Shack Com- 
puter Center was but suggested that we 
continue down Route 17 and we'd 
probably run into it — which we did. 

In the Paramus Radio Shack Com- 
puter Center, Dianne and I asked like 
dumb customers to see the communica- 
tions stuff they had for a Model III. I 
asked if I might be able to try it with a 
terminal program I had with me in the 
car called ST80-III. (I had a heck of a 
time keeping a straight face.) 

It became quite clear that our 
salesman was new and he went straight 
by the book — no non-Radio Shack 
vendor software allowed. We were 
shown Videotext using the Modem I on 
CompuServe and it seemed to work just 
fine. I also asked if I could try their 
Videotext /Model Ill/Modem I on my 
CompuServe account but it took the 
permission of the store manager before 
I could do it. Then I decided to push 
my luck again. After some careful 
prompting, I talked our salesman into 
letting me call my own bulletin board 
here in Vermont on a credit card call. I 
made three tries at it and I couldn't 
even get a carrier. 

Of course I was given the story about 
how the phones are screwed up and 
that the computer I was calling was not 
run by Radio Shack. I finally leveled 
with the salesman and told him who I 
was. It didn't matter. He never heard 
of me. I should have known that when 
he said he never heard of an ST80. 

True, this is only one incident with 
one salesman who had only worked at 
the computer store for three months 
and didn't know too much about com- 
munications. But what happened to me 
is exactly what other people say hap- 
pened to them at other stores with 
other salespeople. Also, as others had 
told me, if it's not a local call, the 
Modem I may not work at all. It didn't 
work on my system whose quality I 
know is excellent. 

Just to finish the story, Dianne and I 
finally met the manager of the 
Paramus Radio Shack Computer 
Center who knew who I was based on 
my Star Trek game. Just before we 
left, we asked if he knew of any other 
computer stores in the area, but he said 
he couldn't help us because he didn't 
know of any. So, Dianne and I left and 
as we got back to the car, Dianne said, 
"Look!" Two hundred feet down the 
road was a sign that said COMPUTER 



UNIVERSE. The Radio Shack store 
manager had to drive by COMPUTER 
UNIVERSE every time he left the 
parking lot. There is absolutely no way 
you can drive north in the south bound 
lane of Route 17 even if you are trying 
to commit suicide. 

COMPUTER UNIVERSE proved 
less exciting than GEM Electronics. 
The magazine rack did not have 
Kilobaud, 80-Microcomputing, Soft- 
Side, 80-US, Creative Computing, or 
Byte. There was no software from In- 
stant Software, Sensational Software, 
Ramworks, Adventure International, 
Acorn, Big Five, or SBSG. We left 
after a few minutes for Burger King. 
True, they don't sell computers, but at 
that point we needed some "junk 
food." 

Lynx 

About a year ago, Emtrol replaced 
their original Lynx modem with a new 
model that would work on either the 
Model I or the Model III. This version 
of the Lynx includes its own built-in 
RS-232 board, auto-answer and auto- 
dial. On the Model I, it plugs directly 
into the back of the keyboard or into 
the screen printer port of the expansion 
interface. An extra printed circuit 
board is included for the Model III. 
The board plugs into the I/O bus on 
the bottom of the Model III. Switches 
on the board make the I/O port ad- 
dresses selectable. This avoids in- 
terference with the Radio Shack built- 
in RS-232. It comes with the ETERM 
program which is excellent for tape 
users but probably won't do the job for 
disk users. 

Although I did not write ETERM, 
the Lynx is based on some of the sug- 
gestions I made to Emtrol when the 
new Lynx was being designed. Unfor- 
tunately, my Model III ST80-III was 
ready before the new Lynx so I had to 
second-guess them. My guesses were 



correct, but without the actual modem 
in hand, there was no way to make sure 
ST80-III and the Lynx would work 
perfectly. 

To make a long story short, I blew it. 
In order for the Lynx to work on the 
Model III, you need to turn the I/O 
bus on. This is a simple software in- 
struction that can be done from 
BASIC. Unfortunately, ST80-III does 
not turn on the I/O bus correctly. This 
will be fixed in the next upgrade. In the 
meantime, you must turn on the I/O 
bus from BASIC before running ST80- 
III. There is no problem with this on 
the Model I. 

The advantages of the Lynx depend 
on the machine to which you connect 
it. On the Model I, the Lynx RS-232 is 
far more reliable than the Radio Shack 
one. Lynx is software compatible with 
most terminal and host software on the 
Model I. On the Model III, you may 
have to change the port addresses of 
your terminal program. 

For ST80-III users, there's a public 
domain program called LYNX/BAS 
which does this for you. If 
LYNX/BAS was not on your ST80-III 
disk, call my bulletin board at 
802-862-7023 and download it. 

Very little auto-dial support is 
available for the Lynx right now. 
However, auto-dial will be available 
for the Lynx in the next upgrade of 
ST80-III. Other than that, auto-dial is 
only available in the ETERM program. 

On the negative side, the Lynx seems 
to have a reputation for being a little 
deaf. I have no way to check this out 
but I suspect that it is true. In the few 
cases I've heard of where the Lynx 
seemed to need a little more poop, a 
simple adjustment usually did the job. 
In any event, the Lynx is vastly 
superior to the Radio Shack Modem I 
and I doubt you'll have much trouble 
with it. Plus Emtrol customer support 
is excellent. 
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Microconnection 

The Microconnection I'm referring 
to here is the one with auto-answer and 
auto-dial. It requires an RS-232 board 
to use and is a direct-connect modem. 
Thus, it will work on the Model I, 
Model II and the Model III. 

If there is one good thing I can say 
for the Microconnection, it's this: 
When the going gets rough, if a 
Microconnection can't make it, then 
nothing will. In the area of sensitivity 
and noise elimination, it will perform 
as good or better than my $995 
Anderson- Jacobson. Indeed, it would 
be the perfect modem were it not for 
one problem — software compat- 
ibility. 

It seems that the handshake signals 
that the Microconnection wants are 
non-standard just for normal opera- 
tion. So you will have to patch your 
terminal program or make up a special 
RS-232 cable to get it to work unless 
you buy a smart terminal program also 
marketed by the Microconnection peo- 
ple. This is unfortunate because the 
Microconnection is getting a bad 
reputation for being software imcom- 
patible. But assuming you don't mind 
making software patches, the 
Microconnection is a good buy and 
does deliver the performance. 

14 April 1982 



BIZCOMP 

I have the BIZCOMP 1084 Direct 
Connection Smart Modem with the 06 
option installed. The 06 option gives 
you all the handshake signals but at ad- 
ditional cost. It is auto-answer and 
auto-dial and requires an RS-232 in the 
computer to operate. 

Unlike the other modems discussed 
so far, the BIZCOMP will auto-dial 
with any software. Since it does not 
need any handshake at all, you can 
even use it on the TRS-80® Color Com- 
puter. It's small, reliable, and easy to 
use. It also has a lot of bad features. 

Noticeably lacking are any indicator 
Hghts. Not even a power-on lamp is 
provided. As a result, I once spent ten 
minutes trying to get it to work only to 
find out that I forgot to plug in the 
power supply. 

To use it for unattended operation, 
you must add the 06 option, then 
jumper some of the RS-232 wires 
around. This defeats the whole selling 
point of any smart modem, which is 
that it can be controlled without hand- 
shake signals. 

D.C. Hayes Stack Smart Modem 

This is one modem I haven't seen, 
but I've heard a lot of comments about 
it. Unlike the BIZCOMP, the D.C. 
Hayes Modem does have indicator 
lights on it and includes handshake 
signal processing at no extra charge. It 
is far more intelligent than the BIZ- 
COMP 1084. For example: It will do 
touch-tone dialing, set the number of 
rings required before answering, and 
even turn off the response codes. 

On the negative side, I have not been 
impressed with the customer support 
from D.C. Hayes. I've had several peo- 
ple set up their MOUSE-NET system 
with the D.C. Hayes and all of them 
had trouble. None of them were able to 
get any information from Hayes 
regarding the handshake signals used 
in their modem. The solution actually 
came from Don Johnson who runs a 
MOUSE-NET down in Florida. He 
figured out how to rewire the pins cor- 
rectly so they would work with 
MOUSE-NET. 

I have mixed feeUngs about the 
Hayes. Personally, I think Hayes is try- 
ing to treat the TRS-80® as if it were an 
Apple. They definitely are relying on 
their Apple reputation in the TRS- 
80® market. On the other hand, I am 
biased against smart modems and 
haven't seen the Hayes. If I had one to 
use for a while, I might change my 
mind. It is priced competitively with 
dumb modems, yet gives you the smart 
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modem capability when you need it. I 
guess my advice on this one is to check 
it out very carefully and to decide for 
yourself. 

Other Modems 

When I first started running my own 
bulletin board system, I used the old 
faithful US Robotic. It is now sitting 
on top of my AJ-1258 as a backup 
modem. In terms of price, it's not the 
value it used to be. But it is an old 
faithful friend that's really good for a 
BBS system. 

There are also a couple of other 
modems available that include their 
own terminal program in a built-in 
ROM. I'd think twice about these. 
Someday you may want to use some 
other terminal program and then you 
can be stuck because you'll also have to 
replace the ROM modem with a stan- 
dard one. In the long run, you might be 
better off getting a no-ROM modem 
and your favorite terminal software to 
drive it. 

Choice 

There are certainly a lot of other 
modems around that I haven't men- 
tioned, but the ones I have covered are 
the most popular makes. The best pick 
really depends on what type of a 
system you have, and what kind of 
features you want. If you are going to 
use your modem for a bulletin board 
system, stay away from the smart 
modems. If you are going to use your 
computer as a terminal, then compare 
carefully. You may find that the ter- 
minal software you like will give your 
favorite dumb modem all the power 
you want rather than going with a 
smart modem and a dumber terminal 
program. In general, it is better for the 
computer to directly control the 
modem with handshake signals than to 
try to run it by remote control. 

My own personal choice is the 
Anderson-Jacobson 1258. I want the 
auto-answer with either 300 or 1200 
baud capability. It is compatible with 
all my software. It has lots and lots of 
lights and is very rehable. It does not 
auto-dial but that's not a problem to 
me; my phones have speed dialing on 
them anyway. All I do is dial two 
digits and the telephone company does 
the rest. 

Most people have different re- 
quirements than I do, so I would im- 
agine that the AJ-1258 would not be 
your best choice. But whatever you 
decide on for a modem, I hope the in- 
formation I've given you will help you 
make the right choice. ^ 
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Introduction To 
Word Processing 

Reviewed by Dave Albert 



by Hal Glatzer (Sybex) Suggested retail 
price: $12.95 

First things first. This is NOT a book 
about microcomputer word processing 
applications. To my knowledge, such a 
book does not exist. However, if you 
are unfamiliar with word processing 
applications in general, then this book 
may be of considerable interest to you. 
It is a well-written, concise discussion 
of word processing, from stand-alone 
electronic typewriters to mainframe 
computers. 

Author Hal Glatzer has done his 
homework. Furthermore, he has 
managed to avoid the many possible 
pitfalls in writing about rhe burgeoning 
field of electronic text processing. He 
does not get lost in technical details 
that would bore the novice, nor does he 
succumb to the temptation to riddle his 
manuscript with technical jargon com- 
prehensible only to the slide rule set. 
Instead, he has written a book that 
anyone can understand. His language 
is simple and very straightforward. His 
expressed (and achieved) aim is to help 
non-technical people to get a handle on 
the possibilities and capabilites of 
equipment in the new field called word 
processing. 

Introduction to Word Processing 
opens with a discussion of what "word 
processing" is, and how it can be 
valuable to a wide variety of people. 
Glatzer obeys the cardinal rule of 
showing, not telling, in this section. He 
seems to suggest that word processing 
capabilities can be valuable to almost 
anyone, a point this reviewer would be 
reluctant to contradict. He then under- 
takes to explain what options are 
available in the realm of letter- 
crunching. 

The options Glatzer discusses are: 
electronic typewriters, stand-alone 
word processors, microcomputers, and 
mainframe and mini computers. At no 
point does Glatzer suggest one type of 
system is better than the others; he 
simply details the advantages and 
disadvantages inherent in each. The 
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points he covers are ease of use, cost, 
cost effectiveness, versatility, and a 
host of others. Again, he only men- 
tions a few brands, and he does not 
ever really express an opinion about 
those he mentions. 

With the groundwork laid, Glatzer 
then tackles actual operation of the 
various word processing systems. He 
does not specifically tell one how to use 
a word processor, but he does go into 
considerable detail about general 
operation of the different types, in- 
cluding discussion of the most com- 
monly used functions of word pro- 
cessors. Furthermore, he discusses the 
various storage media available for the 
equipment, formatting for printing, 
and different types of printing 
available with word processing 
equipment. 

Finally, Glatzer gives some good 
practical advice about getting hands-on 
experience with word processing before 
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running out and dropping a bundle on 
some machinery. His points are well 
taken, and he backs up his suggestions 
with an adequate appendix listing 
various sources of information about 
word processing. He also provides a 
substantial glossary at the end of the 
book, which will help any potential 
buyer wade through otherwise hard-to- 
comprehend industry literature. 

In sum, this is a fine introductory 
guide to word processing. It will not 
help one to decide what system is best, 
although it probably will be quite 
useful in narrowing down one's 
choices. Glatzer is to be lauded for not 
discussing specific equipment, nor try- 
ing to act as word processor guru in 
dispensing his wisdom. His writing is 
quite easy to understand, and his ap- 
proach is figuratively to take the reader 
by the hand and lead him merrily into a 
hitherto confusing world. It is, in all, a 
job well done. © 
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April 2-4 

The Second Annual Eighty/ Apple Com- 
puter Show 
New York Statler Hotel, New York, NY 

Show will feature products and services 
for the TRS-80® and Apple computer 
systems. More than 100 exhibitors will 
display hardware, software, books, 
magazines, supplies, and accessories. 
Contact: Ken Gordon, Kengore Corp., 
3001 Rte. 27, Franklin Park, NJ 08823, 
(201)297-2526. 

April 15-17 

Computer Showcase Expos 

A.J. Cervantes Hall, St. Louis, MO 

April 23-25 

Miami Expo Center, Miami, FL 

Sponsored by The Interface Group, these 
two shows are part of a series of regional 
public shows for users of small business 
and personal computers. 
Contact: Peter B. Young, The Interface 
Group, POB 927, 160 Speen St., Fram- 
ingham, MA 01701, (800)225-4620. In 
Massachusetts, (617)879-4502. 

April 15-18 

The Second Southwest Computer Show 
and Office Equipment Exposition 
Market Hall, Dallas Market Center, 
Dallas, TX 

April 22-25 

New York Computer Show and Office 

Equipment Exposition 



Nassau Coliseum, Uniondale, NY 

These shows will feature mini- and 
microcomputers for business, education, 
government, industry, and home use. 
Data processing and word processing 
equipment, office machines, computer 
peripherals and office supplies will be 
displayed. General admission is $5. 
Contact: National Computer Shows, 824 
Boylston St., Chestnut Hill, MA 02167, 
(617)739-2000. 

April 17-18 

Trenton Computer Festival 

Trenton State College, Trenton, NJ 

This seventh annual festival will feature 
an outdoor flea market, indoor commer- 
cial exhibit area. Space Invaders contest, 
forums, talks and seminars. Sessions on 
software and hardware applications, 
robotics, music, ham radio, education, 
business applications and new languages. 
Day care center for preschool children. 
Contact: Dr. Allen Katz, Trenton Com- 
puter Festival, Trenton State College, 
Trenton NJ 08625. 

April 20-22 

American Business Equipment and Com- 
puter Trade Show 
Hartford Civic Center, Hartford, CT 

Designed for executives, managers, ad- 
ministrators and advisors in the business, 
financial and professional world, this 
trade show will focus on business opera- 
tions today and preview office systems of 
the future. 

Contact: Key Productions, 410 Asylum 
St., Hartford, CT 06103, (203)247-8363. 



April 20-22 

D-COM 

Hynes Auditorium, Boston, MA 

A trade show featuring products and ser- 
vices compatible with Digital Equipment 
Corporation's products, D-COM will in- 
volve vendors and users. 
Contact: Ron Davies, D-COM Inc., 7312 
Burdette Court, Bethesda, MD 20817, 
(301)469-7650. 

April 22-23 

1982 Rocky Mountain Data Processing 

Expo 

Currigan Hall, Denver, CO 

Will feature displays of various product 
lines and services for offices. Conferences 
will include sessions on training, 
databases, EDP auditing, programmer 
productivity, and management concerns. 
Contact: Mark Cramer, Industrial Presen- 
tations West, 3090 S. Jamaica Court, 
Suite 304, Aurora, CO 80014. 



If you or your organization are 
sponsoring or know of an event you 
think would be of interest to SoftSide 
readers, please send complete infor- 
mation to: 

SoftSide Publications 

Calendar Editor 
6 South Street 
Milford, NH 03055 

Be sure to include complete infor- 
mation concerning dates, location, 
subject matter and a contact name, ad- 
dress, and phone number. 



SOFTSIDE ORDERING INFORMATION 



money orders and per- 



FORM OF PAYMENT 

USA 

VISA, MasterCard, certified checks 
sonal checks are accepted. 

Canada/Mexico 

The preferred method of payment is by VISA or MasterCard. 
A bank check is acceptable if It has been preprinted for pay- 
ment in U.S. dollars. No personal or company checks 
accepted. 

Other Foreign Orders 

Payment must either be by a bank check drawn on a U.S. 
bank payable In U.S. dollars or by affiliated bank credit 
cards of VISA or MasterCard. 

GUARANTEE 

All software is guaranteed to load and run. If you experience 
difficulties with the product within 30 days, It may be re- 
turned for replacement. Send your properly protected tape 
or disk to the attention of the Customer Service Represen- 
tative and include your name, address, and the reason it is 
being returned. 

LIABILITY 

All software is sold on an as-is basis. SoftSide assumes no 
liability for loss or damage caused or alleged to be caused 
directly or indirectly by products sold or exchanged by them 
or their distributors, including, but not limited to, any Inter- 
ruption In service, loss of business or anticipatory profits or 
consequential damages resulting from use or operation of 
such software. 



PRICES 

Prices are subject to change without notice. We are not 
responsible for typographical errors. 

Unless otherwise noted In a published advertisement, the 
following prices are in effect as of this issue: 

USA Mexico Other Foreign 
Canada APO/FPO 



SoftSide Magazine (yr) $30 

CV (year) $75 

(6 mo.) $39 

DV (year) $125 

(6 mo.) $64 

Adventure of the Month 
Month (6 mo.) 

Cassette $29 

Disk $49 



Parsec 
Envyrn 
Diversions 



$20 

$200 

$60 



$40 

$95 

n/a 

$145 

n/a 



$35 
$55 

$21.50 

$202 

$70 



$62 

$125 

n/a 

$175 

n/a 



$41 
$61 

$25 

$210 

$85 



BACK ISSUES 

Minimum order for magazines only — 3 Issues. There Is no 
minimum order for magazine/media combinations. 
Price includes shipping to the 48 states only. Alaska, 
Hawaii, Puerto Rico, APO/FPO, and ALL foreign orders — 
postage is additional. 

ALL Foreign orders and all magazine/media combination 
orders — Order directly from SoftSide, 6 South St., Milford, 
NH 03055. 
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^on Software and Hardware for 

TRS-80 < 



CHEXTEXr 

Let your TRS-80" do the proofreading on 
your SCRIPSir text files!! 

Features of tfiis program include: 

• Complete dictionary maintenance in- 
cluding tlie addition and deletion of 
words. 

• tulenu driven for ease of operation. 

• Spelling Checker 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



MODEL III PRICE LIST 

(All 48K with TANDON drives) 

1 single Sided 40 track drive $1695.00 

2 single sided 40 track drives 1 895.00 

1 dual sided 40 track drive 1 820.00 

2 dual sided 40 track drives 21 45.00 

1 single sided 80 track drive 1845.00 

2 single sided 80 track drives 21 75.00 

1 dual sided 80 track drive 1995.00 

2 dual sided 80 track drives 2395.00 

witti RS-232 C Add 11 5.00 



NOTE. These Model III computers contain Apparat 
installed disk drives and memory Ttiey are vwarranted 
r>y Apparat. Inc tor 90 days 




MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density-soft sectored-replacement guaranteed. Spindle/Hub 
protected. (5V.)" only) 

Verbatim Dalalife S'i" 40 track $24.95 

Apparal's No Name 5"4" 40 track St 9.95 

Verbatim Datalife 8" model II $39.95 

PAPER 
9'i"xl 1" blank wrtiite. tractor feed paper, full box 15# or 20# . . $24.95 

14''?"x1f green bar. tractor feed paper, full box $34.95 

3'!"x15/16" tractor feed mailing labels $19.95 

OTHER 

5'4" plastic library case $ 1.95 

8" plastic library case S 4.95 

5'.' Flip-sort S 1 8.95 

8" Flip-sort $31 .95 

1 6K memory kits S 1 9.95 



SPECIAL - FREE GRAFTRAX 

with EPSON |ylX-80 Printers 

MX-80 $499.00 

MX-80F/T $575.00 

MX-100 $775.00 

Printer Cables $24.00 

(Specify Computer Type) 

WE ALSO STOCK OKIDATA S NEC PRINTERS 
CALL FOR PRICES 



NEW LOWER PRICES ON 
TANDON DISK DRIVES 

Complete witti power supply, ctiassis & configured for 
TRS-80' IVIodel I or III 

Single sided 40 track $285.00 

• Dual 40 or Single 80 track $41 5.00 

• Dual sided 80 track $515.00 

• Special - 2 Dual sided 80's $999.00 

lADOSALIVIOST 1.5 IVIEGABYTES OF STORAGE 
TO A D D IVIOD I OR A IVIOD III) 



MODEL! DOUBLE 
DENSITY PACKAGE 

Converts a standard TRS-80 Model I 
J to Double Density. 

Apparat Doubter & NEWDOS/80V 2.0. 
I $278.00 value for only $21 9.00 

Doubler alone $1 29.00 





APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips. TRS-80* 

MOD I & III $1 49.00 

CABLE $ 1 7.95 

BUS EXTENDER 

mini version with 2 card slots and no enclosure S 69.95 



ASSORTED ITEMS OF INTEREST 

MICRO CLINIC, Mod I $24.95, Mod III $29.95 

Tfie ultimate in memory & disk diagnostics 
MEAL MASTER, Mod I & III Disk $24.95 

meal planning & grocery sliopping aid 
FLEXTEXT/80 (requires Graftrax) $34.95 
ultilize the additional features of the rvlX-80 

printers under model I & III scripsit 

MICRO ACCOUNTING SYSTEM, $479.00 

Interactive G/L. A/R. A/P & checkbook manager 

UNI-TERM/aO, $89.00 

(Jniversal terminal program that takes advantage 

of the extended NEWDOS/80 commands 

BASIC BETTER & FASTER BOOK, $23.95 



m^ynusjoosj 



Version 2.0 



The most sophisticated DOS ever pro- 
duced for the TRS-80*' fVlodels I and III. It 
provides the user with "MAINFRAIVIE" 
power on a "IvIICRO". 

Some Features available are: 

• Jobstream Control Language 

• Ivlod l/fvlod III Diskette interchangability 

• Double Density Support on fv^odel I 

• Pagenation of BASIC listings on the screen 

• Basic program single stepping 

• Dynamic variable manipulation 

• Multiple array sorts with BASIC CMD 

• Complete technical support provided 

All this plus much more for only 
$149.00 



InftiWaOa 

Software Report Card 

MEWDOS/80 
Version 2.0 



Pepformance 
DfM^umentalian 
EaB« of Use 
Error Handlinf^ 



a. 2 u i3 

n D D 

u n D 

D O D 

:j D n H 







C->] 



/\k>'^>-/v>><l v^ I / II IK^. ■On-going Support for Microcomputers' 
4401 S Tamarac Pkwy • Denver. CO 80237 • (303) 741-1 778 • (800) 525-7674 

Scnpsit & TRS 80 are a registered trademark of Tandy Corporation 
Freight FOB Denver call lor shipping charges Foreign Orders shipped Air Freight ^ 
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Word Processing: 
An Art In Transition 



By Tom Stanton 



Another phase of word processing, 
the printed word, is beginning to pass 
as the dominant form of information 
storage and retrieval. Print has lasted 
over 500 years, during which time it 
spread knowledge in an unprecedented 
fashion, providing economical copies 
of classics and original works to 
whomever could afford them. At no 
other time in history has so much in- 
formation been so quickly exchanged. 
Save, perhaps, for the present. 

Yet electronic storage and retrieval is 
but a change in technologies. Printing 
will remain, just as handwriting re- 
mains, but it will become as 
uneconomical as handwriting in pro- 
ducing copies. Ultimately, that is all 
that our "information revolution" in- 
volves: copies. A larger number of 
available copies, whatever their origin, 
depends on our desire for them, and 
the cost per copy. 

The Written Word 

The first word processors were the 
scribes, that legion of men and women 
who followed their masters and wrote 
of God, business, taxation, and law. 
They organized their writing skills into 
a middle-level profession that lasted 
until the 16th century. With their 
mistakes, shorthand, and inventions 
the scribes shaped our alphabet. 

Our earliest written records seem to 
be packing slips. Recent archeological 
discoveries of symbols stamped on clay 
vessels have led to speculation that 
those jars were packing shps, shipped 
with goods to account for quantity, 
item, and price. Other discoveries link 
these symbols with sealed vessels con- 
taining stones inside. Archeologists 
think that stone stamps were cut, 
pressed into wet clay jars, then sealed 
inside as a "hardcopy" record of a 
shipment. These clay vessels have been 
found almost exclusively in grain 
houses or aboard sunken ships, and 
some have remained unbroken, their 
contents visible only with X-rays. 

Stone, clay, and paint were the 
favorite media for permanent records; 
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while bamboo, bark, or palm leaves 
provided semi-permanent media. 
Alternatives to clay tablets were sought 
almost from the beginning, and more 
effort put into developing thin plant or 
animal skins upon which to write. 
Egyptian papyrus, in particular, and 
Formosa "rice paper" were cut from 
the pith of trees, making them light, 
portable, not too easily damaged, and 
economical enough for its purposes. 

During this same period, both the 
Egyptians and the Chinese developed 
new tools for writing, the former using 
reed pens, the later a brush. Both of 




A sixteenth century portrait of Johann 
Gutenberg. 



these led to more precise character 
form and the slow evolution of "stand- 
ardized" writing, that is, to a recog- 
nized style as opposed to personal in- 
terpretations. Using this foundation 
the written word made progress. 

During the reign of Trajan, in A.D. 
105, when his forum was built and each 
scribe wrote on a hinged board covered 
with wax (called a codex), T'sai Lun 
announced to the Chinese emperor. 
Yuan Hsing, the development of 
paper. It would take 1000 years before 
the first paper mills started production 
in Europe, although printing pictures 
with wood blocks had already been in- 



vented. However, the commercial con- 
nection between paper and print could 
not be completed in the Orient; the 
ideogrammatic forms favored 
calligraphy, and it was not until this 
century that the technology existed to 
create economical printing for these 
languages. 

After the fall of Rome, Christian 
monks took over the task of the 
scribes. The monks retreated with the 
writing skills and perfected them; they 
created our upper case and lower case; 
they established the Roman alphabet as 
the dominant form in Europe; and they 
created the book, an enduring means 
of information storage and retrieval. 
In every country, using various "na- 
tional" styles of writing, our alphabet 
and its end use, the book, grew to 
maturity. The monks worked in small 
rooms, three or four to a room, using 
quill pens and various ink recipes on 
parchment which was dried animal 
skin, scraped and polished to 
smoothness. These rooms opened on a 
large central room, called the scrip- 
torium, where the work was super- 
vised, proofread, and then passed on 
to others who gilded or painted 
decorative initials and pictures on the 
parchment. The work was done in 
stages, each monk forwarding the 
pages until a book was bound and 
finished. 

Naturally these books were highly 
valued in their day. The fact that 
possibly ten copies of any work existed 
was "miraculous," at least by 11th 
century standards. The monks, who 
had originally created only liturgical 
works or approved classics, shared 
their skills with secular craftsmen, and 
by Gutenberg's time, the middle of the 
15th century, there were large "com- 
mercial" scriptoriums as well as 
religious ones. 

The commercial scribes joined guilds 
and bound themselves with other 
craftsmen in related fields to form a 
thriving and powerful group that had 
seemingly limitless demands for its 
products. The introduction of paper to 
10th century Spain, while not im- 
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mediately significant to the future of 
scribes, at least assured them of 
reasonably-priced materials upon 
which to write. 

The Japanese had already invented 
block printing in A.D. 760, during the 
time of Charlemagne in Europe. 
Kibino-mabi, a Chinese-trained 
scholar, returned to his native Japan 
after 20 years of study and brought 
with him, as some believe, the inven- 
tion of kata-kana, the oldest and 
simplest form of Japanese writing. He 
also supervised the production of 
scrolls printed from blocks of wood. 
This first printing, for the Empress 
Shotoku, consisted of four charms, or 
dharani, on scrolls about as wide as the 
column you're reading and 22 inches 
long, all placed in small wood pagodas. 
The dharani had been issued after a 
terrible outbreak of smallpox in Japan, 
as celestial insurance against another 
such outbreak. 

Block book printing in Europe, 
however, had been stifled by the 
powerful guilds, whose scribes and ar- 
tists had laws passed banning the 
duplication of images. Printing's first 
flowering in Europe was from a brisk 
business in playing cards, followed by 
devotional images printed by 
"underground" artists of the day. 

It would seem that this period was a 
most unauspicious time to introduce 
printing. Yet, it was the perfect time 
economically, and for one important 
reason: the Renaissance had created a 
demand for more books than scrip- 
toriums could ever hope to produce. 
Many inventors sought to perfect 
printing: Coster, from the 
Netherlands, produced a few crude 
prayer pamphlets using type cast from 
clay; and Waldfogel, a Czechoslo- 
vakian goldsmith in Paris who in- 
vented "artificial writing" in 1446, are 
two whose names and inventions have 
been documented. It remained for 
Gutenberg to create the effective 
printing technology to take advantage 
of the abundance of paper produced 
(at prices well below the cost of any 
parchment) by a number of mills that 
had come into existence since 1150. 

The Printed Word 

Gutenberg did not "invent" print- 
ing. He invented the processes that 
made it economical, practical, and 
marketable. To make type he bor- 
rowed from his craft as a goldsmith 
and produced steel rods upon which 
letterforms were filed. These rods were 
then stamped into copper or brass 
plates. The plates, with their letters in 
relief, were fitted to a mold. A mixture 



of lead, tin and antimony was poured 
in, and when it had cooled and was 
opened, the type was removed, the 
metal dressed, and more letters 
were cast. 

Although it sounds like an agoniz- 
ingly slow process, it was a very quick 
and efficient by 15th century stand- 
ards. Gutenburg also made other con- 
tributions including a good printing 
ink and the use of a screw press 
adapted from the winemakers. 

At first printed books were declared 
semipermanent at best by the guild of 
scribes, but it took only 50 years to 
change that. By 1500, printing had 
already gone through its classic period 
in Germany and Italy, and emerged as 
a full-blown industry whose number of 
workers would exceed those of the 
scribes in another half a century. 

The art of typography in printing 
took up where calligraphy had left off 




Fashioned Lettering styles such as tlic above ex- 
ample are frequently used in modern magazines 
and newspapers. Few styles other than Old 
Fashioned instantly suggest antiquity. 

in writing. The type you're reading 
now has its origins in the Italian 
calligraphy favored during the 
Renaissance. Called humanist after the 
scholars who used it, the letterform 
was adopted by Italian printers as an 
alternative to Gutenberg's dark Gothic 
type, derived from the German "na- 
tional style." The Itahans, and in par- 
ticular a displaced Frenchman named 
Nicholas Jenson, nurtured and 
perfected our present reman alphabet. 
Some have called Jenson's roman type 
the most perfect roman ever made. 

Though typography flourished, the 
printing industry itself changed very 
little. Up until the 1840s books were 
printed by hand in large rooms con- 
taining as many as 15 presses, each 
producing two sheets a minute. It was 
the invention of continuous rolls of 
paper that spurred printers to apply 
power to their presses. 
SoftSide 



In 1814, the Times of London began 
using a power press, and from this 
development evolved the modern daily 
newspaper. During this same period, a 
new method of printing, lithography, 
was developed, but the full scope of 
this discovery would not be felt until 
after the Second World War. 

By the 1880s power presses and con- 
tinuous paper production were com- 
monplace, yet type still had to be set by 
hand, letter after letter, much as it was 
in Gutenberg's day. Many devices for 
setting type had been tried, including 
one that cost Samuel Clemens (Mark 
Twain) considerable money before it 
folded. 

The first real advance came in 1886 
with the introduction of the Linotype 
machine in America and the Monotype 
in England. The Linotype, as its name 
suggests, forms a line of type from 
reusable type molds, casts it, and then 
returns the type molds to their proper 
place in the machine. A Monotype, on 
the other hand, casts each letter in- 
dividually. Concurrent with these 
developments was the invention of the 
typewriter. 

As these new technologies took the 
place of the more labor-intensive ones, 
print thrived as it never had in previous 
centuries. Our use of printed paper was 
measured by metric tons, and the many 
magazines and newspapers published 
between 1890 and 1945 document this 
expansion. 

During the Second World War, 
however, a new kind of technology was 
being developed. The computer, with 
an ancestry nearly as long as printing, 
but more obscure, was being conceived 
and nurtured with War funding. After 
the war, the favorable climate for com- 
puters grew with the economy of the 
United States and Europe. The 
"business machine" and computer- 
phobia became a part of American 
folklore. 

While the computer was being 
developed, lithographic printing began 
to replace the 500-year-old relief 
printing, and the photo-litho process 
helped create a new means of setting 
type. The phototypesetters developed 
during the 1950s were retro-fitted 
hnotypes, whose type molds carried a 
letterform on negative film which was 
exposed through lenses onto photo 
paper, developed, and used to make 
photo-litho plates. 

In the 1960s this process was refined, 
and a rotating drum with the 
characters on film spun about a strobe 
light, which fired on command 
whenever the correct letter appeared, 
exposing the letter onto photo paper. 
The Photon Corporation produced one 
of the first machines for the U.S. 
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Government Printing Office. 

At the same time, IBM was perfect- 
ting a new type of business machine 
they called a "word processor." The 
first models developed for the type- 
setting industry used a typewriter in- 
stead of a photosetter for its output. A 
typist recorded a job during keyboard- 
ding on magnetic tape, which could be 
stored and used over again without re- 
keyboarding. IBM later introduced a 
similar machine to business offices, but 
such devices had not yet become an 
economic necessity. 

With the commercial introduction of 
microchip technology, a new breed of 
typesetter was created. These first 
machines used the microchips to store 
programs that automatically justified 
(made columns even), hyphenated 
words, and determined where a line 
would end without operator assistance. 
They used magnetic tape or hard disk 
storage at first, but as floppy disk 
technology became practical and the 
cost of the chips went down, all storage 
and computing was done by the 
machine itself. They were the forerun- 
ners of word processing machines for 
the business office. 

Some word processing systems had 
been in place since the mid-70s, but 
almost exclusively in larger corpora- 
tions. With the development of the 



microcomputer and related software, 
these technologies have filtered down 
far enough so that most anyone in 
business can afford some kind of 
word/data processing. 

The Electronic Word 

Printing will not be replaced by the 
electronic word before the end of this 
century. It may never be wholly out- 
moded, for there are new printing 
technologies, among them the ink jet, 
that may bring it back to a kind of 
prominence. But it will never dominate 
as it has for the last five centuries. 

The microcomputer, armed with a 
word processing program and a 
printer, is capable of making digital- 
ized copies complete with updates, at a 
cost that will one day be competitive 
with print. For short runs of, for exam- 
ple, 100 copies of a 20 page report, it is 
quite competitive. Still, this is only an 
overlapping of forms and technologies 
that compete to do the same thing. The 
power of the electronic word exceeds 
print because it does not need hard- 
copy replication. The data can be 
stored without once printing it, infor- 
mation can be sent nearly anywhere, 
and the cost of the raw materials in- 
volved is considerably less than those 
used for printing. 

Remember, too, that I'm speaking 



solely about the microcomputer. The 
deliberate exclusion of mainframes 
reinforces the fact that the electronic 
word not only can, but will dominate 
as our chief source of information. 
Books will not disappear; they will 
become rareties devoted to topics 
worthy of such presentation; instead of 
the present shabby products that con- 
sume millions of acres of vegetation, 
we may once again have books made 
"the way they used to be made." 

The future of the electronic word 
will depend on the people who use it. 
We may develop a global library, 
translatable into any language, or we 
may simply develop a collection of our 
trivia. The question is one of quality. 

With the ease of reproduction, will 
our future copies of data be looked 
upon as we look upon old books or the 
monumental writings in stone left us by 
the ancients? This revolution in infor- 
mation has been taking place since we 
started writing. We now have a new 
tool, as crude as we conceive an ancient 
pen might have been, but no more 
powerful than that pen for one reason: 
the hand that guides it. 

Perhaps the greatest question we 
must answer is whether we are ready 
for this new tool, or even worthy of it. 
You are the pioneers. You are shaping 
those answers. © 



The Little Printer with Big Features 




Specifications 



Conwl aOColumn Dai Motitx Miilw 



Print FeotuFM 


Number of columns 


HOcnl max 




Print Speed 
Prim Direction 


12S CPS 

Single-directional and Bidirectional .Switch 

Seleciable 




Throughpui Speed 
Form Feed Speed 


6.^ LPM ai Bidirectional Priming 
1(1 LPS 




Characccr Formal 


- X "" l>(it Matrix 




Character spacing 
(max. number of 
columns per line ) 


Normal Width 10 CPUHO) 
l><)ub]c Width ^ CPl ( iO) 
Compressed Horn K. ■> (;PI{H2) 
(lomprcssed Font 

iJouhie Width Hi-iCPi (W.) 




Line Spacing 
Print Width 


6 LPI 

U)*, mm(K-)n.ax 


Forms 


Width 


IIA mniin2*i-4 mm(H.S- to 10 H") 




Total Thickness 


0.0'i|,i0.2Hmr)(ll.(M)2" toOllll") 




Number of ropii-s 


Original + 2 copies nominal 


FormF«*d 


Method 


Sprocket Feed 




Form Loading 


Either boilom or rear 



The Comet-I is the lowest priced printer that we sell. 
The Comet-I has standard features that are optional on 
many other higher priced printers. Comet-I's print speed 
is an impressive 125 ops bidirectional, and print features 
include 4 character sizes, 4 different alphabets for inter- 
national use, a high-resolution 7x7 dot-matrix, and a 
print compression capability that enables the Comet-I 
user to switch between 5, 8.25, 10 and 16.5 CPI and to 
print up to 132 characters per 8-inch line. This paper 
saving feature is very desirable in today's data pro- 
cessing market. 

You'll find that the quality, performance and cost 
economy of this printer puts it ahead of any other com- 
petitive model in its price catagory, and it's ready for 
immediate delivery. 

Comet-I Printer, with Centronics-compatible interface 
#09-259005H $289.00 

Comet-I Printer, with RS-232C interface 
#09-259006H $289.00 

The SaHware Exchange 

14 South St., MiHord, NH 03055 (603)673-51« 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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MICROTEXT 1.S 




by Jon Voskuil 

"Microtext 1.2 is a word processor 
program for a 16K Apple (with Ap- 
plesoft), ATARI®, or TRS-80®(Model 
I or III). 

In the December, 1981, and 
January, 1982, issues of SoftSide, we 
published the first two parts of a sim- 
ple word processor program. Here we 
add the third (and probably last) main 
module of the program, which gives it 
line-editing capability. 

A few minor modifications have also 
been made to other parts of the pro- 
gram. The complete line listings are 
given; lines which have been added or 
changed are indicated, so that you need 
only add these if you have previously 
typed in the other installments. Please 
observe that the "Program Documen- 
tation Textwriter" subtitle has been 
dropped, and it is NOT necessary to 
use Microtext in submitting documen- 
tation for programs; see Outgoing Mail 
for more information. 

Upon running, Microtext 1.2 
displays a mostly blank screen with an 
instruction summary line at the top or 
bottom. You can either start typing, or 
load a previously saved file from disk 
or tape. (Please see the note below con- 
cerning the Apple version's tape opera- 
tion.) Capitalization of characters on 
the Apple and TRS-80® Model I ver- 
sions is accomplished by preceding in- 
dividual characters to be capitalized by 
an "@" symbol, and words to be 



capitalized by a double "@@". Nor- 
mal use of the Model I's shift key in- 
serts the "@" in front of individual 
characters; the "@" key itself must be 
used to insert the double symbol 
necessary for word capitaHzation. On 
the Apple, the shift key is not designed 



to operate in this way; pressing ESC 
once or twice before the letter or word 
to be capitalized will do the trick. 

The Apple and ATARI® versions use 
the CTRL key to access editor and 
system functions, while the TRS- 
80® version uses the CLEAR key. 
Holding down CTRL, or pressing and 
releasing CLEAR, and then pressing S, 
L, R, P, or E, will access the save, 
load, review, printout, or edit func- 
tions. Although not mentioned in the 
command summary on the screen, 
pressing CTRL-Q or CLEAR-Q will 
quit the program. 

Saving and loading files is simply a 
matter of answering the questions 
about the medium to be used (tape or 
disk) and, if disk, the file name. Once 
you have entered a file name, it will be 
used as the default until you specify 
another one or exit the program: Just 
press RETURN/ENTER when asked 
for the file name. This simplifies 
repeated saves during entry of a long 
document. The Apple disk read/write 
routine has been modified to make it 
much faster than before, with the 
sacrifice of not being able to use 
standard quotation marks within the 
body of the text. (An apostrophe, or 
single-quote, is automatically 
substituted if the double-quote key is 
pressed.) If you insist upon retaining 
the use of normal quotation marks, 
you'll have to put up with the slower 
disk I/O. This tradeoff is not necessary 
with the ATARI® and TRS-80® 
versions. 

The review function causes the com- 
puter to return to the beginning of the 
text in memory and scroll through it to 
the end. During this scrolling, you can 
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press any key to pause. Then, pressing 
the spacebar will cause one more line to 
be displayed; pressing RETURN/ 
ENTER will cause the scrolling to con- 
tinue; and pressing E will enter the 
editing mode. 

In the editing mode, you can move a 
cursor up and down through your text, 
to locate any line which you want to 
edit or delete. This movement is ac- 
complished with the up- and down- 
arrow keys on the ATARI® and the 
TRS-80®, and with the I and M keys on 
the Apple. You have four options 
while in the editing mode: Pressing 
ESC (ATARI® or Apple) or CLEAR 
(TRS-80®) will exit to the review mode; 
pressing D will delete the line at the 
cursor; pressing X will delete 
everything from the cursor to the end 
of the text; and pressing ENTER/ 
RETURN will allow you to edit the line 
at the cursor. 

If you choose to edit a line, the 
screen will first clear, and then display 
a number of lines of text with a gap of 
several lines in the middle. The cursor 
will be positioned at the beginning of 
the line you have chosen to edit, and 
you can proceed to type in a new line to 
replace the old one. The new one can 
be shorter than the original, or may oc- 
cupy multiple screen lines. Any part of 
the original line that you want retained 
must be retyped: Whatever you type in 
will replace the entire line. When you 
have finished entering the new text, 
press CTRL-F or CLEAR-F (not 
ENTER/RETURN, unless you want a 
carriage return in the text itself). The 
computer will check to see if the text 
lines need to be rearranged, and then 
return you to the review mode. 
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The printout function allows you to 
send your text to a printer, after select- 
ing margins, line spacing, and (in the 
case of the Apple and the Model I) the 
case conversion option. Pressing 
RETURN/ENTER in response to the 
offered options will select the default 
value indicated. The case conversion 
option allows the text to be printed 
from the Apple or Model I just as it ap- 
pears on the screen, in all upper case 
and with the embedded @ symbols; or 
else to convert it (a bit sluggishly, using 
a BASIC routine) to normal mixed case 
for a final printout. 

Program Notes 

The DIMension statement in line 
120, and the CLEAR in line 1 10 of the 
TRS-80® version, reserve memory for 
the strings which hold the text. The 
numbers listed work for a 48K system 
(40K ATARI®) with DOS booted, but 
will need to be adjusted downward if 
your system has less available memory. 
All REM lines may be deleted without 
effecting the program's operation, to 
gain more memory space. Many of the 
individual program lines could also be 
squeezed together on multiple- 
statement lines; this kind of packing 
has been avoided for the sake of clar- 
ity, but would increase available 
memory and possibly execution speed. 

If you have a TRS-80® Model III, 
some of the listed lines should be 
changed as follows: 

Line 50: Omit ":GOTO 100" 

Lines 59-74: Delete 

Line 7050: Delete 

Line 7130: Change to "LPRINT 

TAB(LM);P$;" 

Line 7140: Delete 

Line 7590: Change to "LPRINT 

TAB(LM);PP$;" 

Line 7600: Delete 

If you have an Apple, and have tried 
using the tape I/O routines included in 
previous versions of Microtext, you 
have undoubtedly noticed that they 
simply do not work. The STORE and 
RECALL statements are not designed 
for use with string arrays, even though 
they SEEM to work if you don't 
disturb the computer's memory be- 
tween program runs. (That's what 
fooled us into thinking that they did 
work.) We are working on a method of 
reading and writing string arrays using 
tape, which doesn't involve the time- 
and memory-consuming process of 
converting the string arrays into integer 
arrays first. We hope to come up with a 
solution for publication in the May 
issue. 
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210 VTAB 24: HTAB 1: INVERSE : PRINT 
" "SAVE "LOAD "REVH "E 
DIT "PRINT";: NORMAL 

220 VTAB V: HTAB H 


A??IF 


%H%\HM%i%\%M%%\%%%i%i%%%%% 


t APPLESOFT BASIC % 
% 'MICROTEXT 1.2' » 
t AUTHOR: JON R. VOSKUIL ♦ 
* (C) 1982 SOFTSIDE $ 

Title page. (Lines 20 and 40 are 
changed.) 

10 TEXT : HOME 

20 VTAB 8: PRINT TAB( 8)"n I C 


Input loop. (Line 505 Is changed. The 
original line 890 has l>een deleted here, 
but may be retained If preferred.) 

499 REM INPUT LOOP 

500 SET C»:C = ASC (C«) 

505 IF C = QUOT THEN C = 39:Ct = 

"'": SOTO 740 
510 IF C = ESC THEN C$ = ■J":C = 

64 


R T E X T 1.2" 
30 VTAB 12: PRINT TAB( 12) "BY J 


520 IF C = RTN THEN CJ = CR$ 
639 REM BACKSPACE 


ON R. VOSKUIL" 


640 IF C < > BKSP THEN 720 


40 VTAB 14: PRINT " COPYRIGHT 19 


650 IF CHAR < 2 THEN 500 


82 SOFTSIDE PUBLICATIONS" 
50 FOR Z = 1 TO 3000: NEXT Z: GOTO 


660 PRINT B*i" »;B«; 
670 CHAR = CHAR - 1 


100 


675 IF CHAR < 2 THEN L«(LN) = " 




: SOTO 500 


Mixed-case printout conversion routine. 

59 REM LOWERCASE PRINT RTN 


680 L$(LN) = LEFT* (L$(LN), LEN 

(L$(LN)) - I) 
700 GOTO 500 


60 X$ = "": IF PP» = " THEN 74 
62 LOCK = NO:LC = Nl: FOR K = Nl TO 
LEN (PP«):CC = ASC ( HIDt 


719 REM CTRL CHARACTER 

720 IF C < ESC AND C < > RTN THEN 
2000 


IPPt,K,Nl)): IF CC = N32 THEN 
LOCK = NO 


739 REM END OF LINE 

740 CHAR = CHAR + 1: IF CHAR < LH 


64 IF CC < > N64 THEN 70 
66 IF LC = NO THEN LOCK = Nl 
68 LC = NO: GOTO 72 


ID OR C - SPC OR C = RTN THEN 
760 
750 BOSUB 1000 


70 PRINT CHR$ (CC + N32 t (LC AND 


759 REM ADD TO STRING 


CC > N64 AND CC < N91) 1 ( NOT 
LOCK));:LC = Nl 


760 L»(LN) = LKLN) + Ct 
779 REM RETURN 


72 NEXT 
74 RETURN 


780 IF C < > RTN THEN 880 
820 PRINT Ct 


Initialization. (Lines 130 and 210 are 
changed.) 


840 LN = LN + 1:L«(LN) = •":SLOC = 


850 CHAR = 1 


99 REM INITIALIZATION 

100 HOME : ONERR GOTO 20000 


860 GOTO 500 

879 REM PRINT ON SCREEN 

880 PRINT C$; 


110 POKE 35,22 

120 DIM Lt(lOOO) 

130 QUOT = 34:ESC = 27:BKSP = SsR 

TN = 13:SPC = 32: B» = CHR» 

(8):CRt = CHR$ (93) 
140 CHAR = 1:N0 = 0:N1 = 1:N32 = 

32:N64 = 64:N91 = 91 
150 LN = 1 


899 REM UPDATE SPC POINTER, CHK 
FOR LINE END 

900 IF C = 32 THEN SLOC = CHAR: IF 
CHAR = LHID THEN LN = LN + 1 
:Lt(LN) = "":CHAR = hSLOC = 
0: PRINT 

920 SOTO 500 


160 D» = CHR$ (4) 

170 PRINT D$i"l10N C,I,0': HOME 


Subroutine to break line at a space and 
to Initialize the next line. 


180 LHID = 38 




190 V = 1:H = 1 

200 VTAB 23: FOR I = 1 TO 39: PRINT 
"-";: NEXT : PRINT 


999 REM JUSTIFY I INCR LINE 

1000 IF SLOC = THEN PRINT : GOTO 
1100 
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1020 HTfiB SLOC 


3110 PRINT ! PRINT " RETURN: CONT 


4230 POKE 34,0: POKE 35,22 


1040 PRINT SPC( LHID - SLOC): PRINT 


SPACEBAR:STEP E:EDIT "; 


4240 RETURN 


1050 IF SLOC = LHID - 1 THEN 110 




Subroutine to load text from disk or 





3120 GET U'A = ASC (X$) 


tape. (Lines 5065, 5075, 5078, and 5150 


lOiO L»(LN + 1) = RIGHT* (L»(LN) 


3125 IF X = 69 THEN GOSUB 9000: 


are changed. Original lines 5140 and 


,LWID - 1 - SLOC) 


GOTO 3000 


5160 have been deleted. Line 5230: see 


1080 LJ(LN) = LEFT* (Lt(LN),SLOC 


3160 IF X = 13 THEN 3190 


note on line 4210.) 


- 1) 


3170 IF X < > 32 THEN 3110 


4999 REM LOAD FROM DISK/TAPE 


1100 LN = LN + 1 


3180 STP = 1 




1120 PRINT L$(LN); 


3190 SPEED= 240: POKE 34,0: POKE 


5000 VTAB 24: HTAB 1: POKE 35,24 
: POKE 34,23: PRINT 


1140 CHAR = LEN (L$(LN)) + 2 


35,22: VTAB VV: HTAB 1 


1150 SLOC = 


3200 NEXT I 


5020 VTAB 24: HTAB 1: PRINT "LOA 






D FROM TAPE OR DISK? (T/D/ES 


1160 RETURN 


3210 PRINT L*(LN); 


C) "! 
5030 GET X»: PRINT 


Subroutine to process command codes. 


3220 V = PEEK (37) + 1:H = PEEK 
(36) + 1 


(Lines 2050 and 2600 are new.) 




5040 IF X* = CHRt (ESC) THEN 52 




3230 SFEED= 255: RETURN 


50 


1999 REN PROCESS CTRL CHARS 




5050 IF X« = "T' THEN 5210 


2000 V = PEEK (37) + liH = PEEK 


Subroutine to save text to disk or tape. 


5060 IF X$ < > "D" THEN 5020 


(36) + 1 


(Lines 4075, 4085, 4088, and 4150 are 


5065 FU = F» 


2050 IF C = 6 THEN RETURN : REH 


changed. Line 4210 Is retained for 
historical purposes only; the tape save 


5070 INPUT "FILE NAME: ";F$ 


CTRL-F (BACK TO EDIT RTN) 


routine doesn't work. See article for 


5075 IF F» = "" AND Fit = "" THEN 


2100 IF C = 18 THEN 60SUB 3000: 


more Information.) 


5070 


REH CTRL-R 




5078 IF Ft = ■" THEN Ft = Fit 


2200 IF C = 19 THEN GOSUB 4000: 


3999 REH SAVE TO DISK/TAPE 


5080 INPUT "INSERT DISK AND PRES 


REM CTRL-S 


4000 VTAB 24: HTAB 1: POKE 35,24 


S RETURN "iXt 


2300 IF C = 12 THEN GOSUB 5000: 


: POKE 34,23: PRINT 


5090 PRINT Dt;"OPEN ";Ft 


REH CTRL-L 


4020 VTAB 24: HTAB 1: PRINT "SAV 


5100 PRINT Dt;"READ ";Ft 


2400 IF C = 17 THEN TEU : END 


E TO TAPE OR DISK? (T/D/ESC) 


5110 INPUT Lt(0) 


: REN CTRL-Q 


1 ( 


5120 GOSUB 5290 


2500 IF C = 16 THEN GOSUB 7000: 


4030 GET X»: PRINT 


5130 FOR I = 1 TO LN 


REM CTRL-P 


4040 IF n = CHR» (ESC) THEN 42 


5150 INPUT Ltd) 


2600 IF C = 5 AND LN > 1 THEN I = 


20 


5170 NEXT I 


LN - 1:VV = V: VTAB VV - 1: GOSUB 


4050 Lt(0) = STR« (LN t 10000 + 


5180 PRINT : PRINT Dtj "CLOSE ";F 


9000: GOSUB 3000: REM CTRL-E 


SLOC » 100 + CHAR) 


t 




4060 IF X* = "T" THEN 4190 


5190 FOR Z = 1 TO 500: NEXT Z 


2900 GOTO 210 


4070 IF X$ < > "D" THEN 4020 


5200 GOTO 5250 




4075 Fl$ = Ft 


5210 INPUT "START RECORDER AND P 


Subroutine to review entered text. (Lines 


4080 INPUT "FILE NAME: ";F$ 


RESS RETURN "jXt 


3020, 3110, 3125, and 3190 are changed. 


4085 IF H = " AND Fl» = "" THEN 


5220 FLASH ; PRINT " LOADING ";: 


Original lines 3130, 3140, and 3150 have 


4080 


NORMAL 


been deleted.) 


4088 IF F» = ■■ THEN F$ = Fl« 


5230 RECALL Lt 


2999 REH REVIEW TEXT 


4090 INPUT "INSERT DISK AND PRES 


5240 GOSUB 5290 


3000 VTAB 24: HTAB 1: PRINT SPC( 


S RETURN '\U 


5250 PRINT 


39) 


4100 PRINT D»;"OPEN ";F$ 


5260 POKE 34,0: POKE 35,22 


3010 VTAB 24: HTAB 1: PRINT 'PRE 


4110 PRINT D$;"DELETE "jF* 


5270 GOSUB 3000 


SS SPACE BAR TO PAUSE"; 


4120 PRINT D»;"OPEN '\H 


5280 RETURN 


3020 HOHE : SPEED= 240 


4130 PRINT Dt; 'WRITE "jF* 


5290 Lt = Lt(0):L = LEN (Lt) 


3030 FOR Z = 1 TO 500: NEKT Z 


4140 FOR I = TO LN 


5300 CHAR = VAL ( RIGHTt (Lt,2)) 


3040 IF LN = 1 THEN 3210 


4150 PRINT CHR« (34);L«(I); CHR* 


:Lt = LEFTt (Lt,L - 2) 


3050 FOR I = 1 TO LN - 1 


(34) 


5310 SLOC = VAL ( RIGHTt (Lt,2)) 


3060 PRINT L$(I) 


4160 NEXT I 


:Lt = LEFTt (Lt,L - 4) 


3070 IF PEEK ( - 16384) < 127 AND 


4170 PRINT D»; "CLOSE "jF* 


5320 LN = VAL (Lt) 


NOT STP THEN 3200 


4180 GOTO 4220 


5330 RETURN 


3080 STP = 0: SPEED= 255: POKE - 


4190 INPUT "START RECORDER AND P 




16368,0 


RESS RETURN "jX* 


Subroutine to print the text file In 


3090 VV = PEEK (37) + 1 


4200 FLASH : PRINT " SAVING ";: NORMAL 


memory to a printer. 


3100 VTAB 24: HTAB 1: POKE 35,24 


4210 STORE L* 




: POKE 34,23: PRINT 


4220 PRINT 


6999 REN PRINTOUT ROUTINE 
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7000 HOHE { VTAB 6: LIN = 

7010 INPUT "LEFT MARGIN? (DEFflUL 
T = 10) "iXirLH = VflL (X$)! 
IF LN < 1 THEN LH = 10 

7020 PRINT : INPUT "RI6HT MARGIN 
? (DEFAULT = 70) '\n-M = VAL 
m): IF RM < 1 THEN RM = 70 

7030 PRINT : INPUT "LINE SPACING 
? (DEFAULT = 2) ■;)($:LS = VAL 
(K»): IF LS < 1 THEN LS = 2 

7040 LL = RM - LM 

7050 PRINT : PRINT "CONVERT TO L 
OHERCASE UNLESS PRECEDED 
BY 3? (DEFAULT = NO) "j; GET 
XtiUC = l! IF n = T THEN 
UC = 

7060 PR» 1 

7070 HOME : PRINT :Pt = ""iCR = 
0:1 = 

7080 1=1+ 1;P$ = P* + L$(I) 

7090 IF RISHTt (P$,l) = CR$ THEN 
CR = 1: GOTO 7110 

7100 IF LEN (P») < 255 - LNID AND 
I < LN THEN 7080 

7110 60SUB 7500: CR = 

7120 IF J < LN THEN 7080 

7130 PRINT TAB( LM);: IF UC THEN 
PRINT P»;: SOTO 7150 

7140 PP$ = P$: GOSUB 60 

7150 PRINT ! PRI 

7160 GOSUB 3000 

7170 RETURN 

7500 L = LL 

7510 IF LEN (P«) > LL THEN 7550 

7520 IF NOT CR THEN 7640 

7530 LP = LEN (Pt): IF LP < 2 THEN 

PP$ = "":P$ = "": GOTO 7590 
7540 PP» 

"•: GOTO 7590 
7550 C$ = MIDI (P*,L,1) 

" " THEN 7580 
7560 L = L - li IF L > THEN 755 


7570 L = LL 
7580 PPt = LEFT$ (P$,L)!P« = RIGHT* 

(P$, LEN (P$) - L) 
7590 PRINT TAB( LM);: IF UC THEN 

PRINT PPt;: GOTO 7610 
7600 GOSUB 60 
7610 FOR J = 1 TO LSiLIN = LIN + 

1: PRINT • ": NEXT J 
7615 IF LIN > 59 THEN FOR J = I 

TO 66 - LIN: PRINT : NEKT J 

:LIN = 
7620 IF LEN (P«) > LL THEN L = 

LL: SOTO 7550 
7630 IF CR AND LEN (Pt) > THEN 
7530 



LEFT* (PtjLP - 1)!P$ = 



IF C$ = 



7640 RETURN 



Subroutine to readjust lines In memory 
so that they fit properly on the screen 
after editing. (This routine Is wholly 
new.) 

7999 REM TEH REJUSTIFY RTN 

8000 HOME : VTAB 5: PRINT "RE-JU 
STIFYING TEH. . ." 

8010 LIN = EL:LN = LN - 1 
8020 P» = "":CR = 0:1 = EL - 1 
8030 1 = 1 + 1:P$ = Pt + Ltd) 
8040 IF RIGHTt (Pt,l) = CRt THEN 

CR = 1: GOTO 8060 
8050 IF LEN (Pt) + LEN (Ltd + 

D) < 256 AND I < LN THEN 80 

30 
8060 GOSUB 8500 
8070 IF NOT CR THEN 8100 

8079 REM END OF PARA6RAPH 

8080 )( = I + 1 - LIN: IF )( = THEN 
8150 

8089 REM MOVE LNS DOWN IN ARRAY 

8090 FOR J = I + 1 TO LN:Lt(J - 
K) = Lt(J): NEXT J:LN = LN - 
h GOTO 8150 

8100 IF I < LN THEN 8030 

8110 Lt(LIN) = Pt 

8120 CHAR = LEN (Pt) + 1:SL0C = 

LEN (Pt) 
8130 FOR I = LIN + 1 TO LN:Lt(I) 

= "": NEH I 
8140 LN = LIN 
8150 RETURN 
8500 L = LNID 
8510 IF LEN (Pt) > LNID THEN 85 

50 
8520 IF NOT CR THEN 8630 
8530 LP = LEN (Pt) 
8540 PPt = LEFTt (Pt,LP):Pt = " 

: GOTO 8590 
8550 Ct = MIDt (Pt,L,l): IF Ct = 

" " THEN 8580 
8560 L = L - 1: IF L > THEN 855 


8570 L = LNID 
8580 PPt = LEFTt (Pt,L):Pt = RIGHTt 

(Pt, LEN (Pt) - L) 
8590 Lt(LIN) = PPt 
8600 LIN = LIN + 1 
8610 IF LEN (Pt) > LNID THEN L = 

LNID: GOTO 8550 
8620 IF CR AND LEN (Pt) ) THEN 

8530 
8630 RETURN 

Subroutine to edit lines of text. (This 
routine Is wholly new.) 



8999 REN EDIT LN SUBRTN 

9000 IT = I: POKE 34,0: POKE 35,2 

2: IF I > 20 THEN VI = 21: GOTO 

9040 
9010 VTAB VV: HTAB 1:V1 = I 
9020 X = 21: IF X > LN - 1 THEN X 

= LN - 1 
9030 FOR I = IT + 1 TO X: PRINT 

Ltd): NEXT I 
9040 EL = VI + (IT > 21) t (IT - 

21) 
9050 Qt = "I,M:MQVE RTN:EDIT D 

,X:DEL ESC:EXIT" 
9060 VTAB 24: HTAB 1: INVERSE : PRINT 

at;: NORMAL 
9070 POKE 34,0: POKE 35,22 
9080 VTAB VI: HTAB 1: GET Xt 
9090 IF Xt < > "I" THEN 9130 
9100 IF VI > 1 THEN VI = VI - 1: 

EL = EL - 1: GOTO 9080 
9110 IF EL = 1 THEN 9080 
9115 EL = EL - 5: IF EL < 1 THEN 

EL = 1 
9120 FOR I = EL TO EL + 20: CALL 

- 868: PRINT Ltd): NEXT : GOTO 
9080 

9130 IF Xt < > "M" THEN 9180 
9140 IF EL > = LN - 1 THEN 9080 
9150 EL = EL + 1 
9160 IF VI < 21 THEN VI = VI + I 

: GOTO 9080 
9165 NN =4: IF NN > LN - EL - 1 THEN 

NN = LN - EL - 1 
9170 EL = EL + NN: VTAB 22: HTAB 

1: FOR I = EL - NN TO EL: PRINT 

Ltd): NEXT I: GOTO 9080 
9180 IF Xt = CHRt (ESC) THEN 95 

90 
9190 IF Xt < > 'D" OR VI = 1 THEN 

9250 
9200 FOR J = EL TO LN - l:Lt(J) = 

Lt(J + 1): NEXT :Lt(LN) = " 

9210 X = 21 - VI: IF X > LN - EL THEN 

X = LN - EL 
9220 FOR J = EL TO EL + X: CALL 

- 868: PRINT Lt(J): NEXT 
9230 IF EL = LN - 1 THEN VI = VI 

- 1:EL = EL - 1 

9240 LN = LN - 1: GOTO 9080 
9250 IF Xt < > "X" THEN 9310 
9260 VTAB 24: PRINT "DELETE FROM 

HERE TO END OF TEXT? (Y/N) 

";: VTAB VI: HTAB 1: GET Xt: 
IF Xt < > "Y" THEN 9060 
9270 FOR J = EL TO LN:Lt(J) = •" 

: NEXT J:LN = EL:CHAR = 1:SL 

OC = 
9280 VTAB VI: HTAB 1: CALL - 95 
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8 
9290 VTAB 24: INVERSE : PRINT Q» 

i! NORHAL 
9300 VTflB VI: HTAB 1: BOTO 9100 
9310 IF X$ < > CHR$ (RTN) THEN 

9080 
9320 LI = EL - 8: IF LI < 1 THEN 

LI = 1 
9330 L2 = EL + 8: IF L2 > LN THEN 

L2 = LN 
9340 HOME : FOR J = LI TO EL: PRINT 

L»(J): NEXT J 
9350 PRINT : PRINT : PRINT : PRINT 
9360 FOR J = EL + 1 TO L2: PRINT 

L»(J): NEXT J 
9370 VTAB 24: CALL - 866: INVERSE 

: PRINT " TYPE NEH LINE ABO 

VE CF TO FINISH) ";: NORMAL 
9380 VTAB EL - LI + 1: HTAB 1 
9390 TLN = LN:LN = LN + 1 
9400 FOR J = 1 TO 5:L$(TLN + J) = 

"■: NEXT J 
9410 CI = CHAR: SI = SLOC:CHAR = 1 

:SLOC = 
9420 GOSUB 500 
9430 CHAR = ChSLOC = SI 
9440 IF L»(LN) = "" THEN LN = LN 

- 1 
9450 NL = LN - TLN 
9440 IF NL = 1 THEN 9510 
9470 IF NL > THEN 9500 
9480 FOR J = EL TO TLN:L»(J) = L 

$(J + 1): NEXT J 
9490 L»(LN) = ": SOTO 9580 
9500 FOR J = LN TO EL + 1 STEP - 

1:L$(J + NL - 1) = L*(J): NEXT 

J 
9510 FOR J = TO NL - 1:L$(EL + 

J) = L$(LN + J):L»(LN + J) = 

"": NEXT J 
9520 CX$ = RI6HT$ (Lt(EL + NL - 

1),1) 
9530 IF CXi = CR$ THEN 9580 
9540 IF CX$ < > • " THEN L»(EL + 

NL - 1) = L»(EL + NL - 1) + 

H H 

9550 SS = 1:L» = L»(EL + NL):LL = 

LEN (L$) 
9560 IF HID* (L»,SS,1) < > " ■ 

AND SS < = LL THEN SS = SS 

+ 1: 60T0 9560 
9570 IF LEN (L*(EL + NL - D) + 
SS < = LKID THEN SOSUB 800 
0: BOTO 9590 
9580 LN = TLN + NL - 1 
9590 RETURN 

Error-handling routine. (Line 20090 Is 
changed.) 



19999 REM ERR0R-HANDLIN6 RTN 

20000 E = PEEK (222): PRINT CHR$ 
(7) 

20010 IF E = OR E > 15 THEN PRINT 
"ERROR l";E;' IN LINE '; PEEK 
(218) + PEEK (219) » 256: STOP 

20020 PRINT D»i "CLOSE" 

20030 PRINT "DISK ERR: "; 

20040 IF E = 4 THEN PRINT "WRIT 

E-PROTECTED"; 
20050 IF E = 5 THEN PRINT "END 

OF DATA"; 
20060 IF E = 9 THEN PRINT "DISK 

FULL"; 
20070 IF E = 10 THEN PRINT "FIL 

E LOCKED"; 
20080 PRINT "; PRESS A KEY";: BET 

X$ 
20090 POKE 34,0: POKE 35,22: GOTO 

210 



A\AR\ 



i ATARI BASIC * 

* 'fllCROTEXT 1.2' t 

t AUTHOR: JON R. VOSKUIL % 

$ (C) 1982 SOFTSIDE i 

Title page. (Lines 20 and 40 are 
changed.) 

10 DIH CL$(l):CLt=CHR}{125):FRINT CL$ 

15 POKE 752,1 

20 POSITION S.8:PRINT "M I C R T E V 

T 1.2" 
30 POSITION 12.12!PRINT "BY JON R. VOS 
KUIL" 

40 PRINT :PRINT "CCPYRieHT 1982 SOFTS 
IDE PUBLICATIONS" 
50 FOR 1=1 TO 1000; NEXT Z 

Initialization. (Lines 120, 125, and 
200 are changed.) 

99 REM INITIALIZATION 

100 PRINT CL$:TRAP 20000 

120 DIM L$(40),T$(14000),B*(1),C$(1),C 

R*(l),LIN$(37),LNXT$(40),F*{14),St(37) 

,FT$(14),LP(500),TT$(40!,X$(5) 

125 DIM P*(255),PPif80),Q$(37),Fl$(14) 

130 BKSP=126:RTN=155:SPC=32:B$=CHR$(12 

6):CR$=CHR*(20) 

135 T$="":L$="":LP{0)=0 

140 CHAR=1 

150 LN=1 



160 LIN$=" 

":S$=" 

170 OPEN il,4,0,"K:° 

ISO LHID=36 

185 POKE 752,0 

190 V=2:H=2 

200 POSITION 2.0:PRINT "'SAVE 'lOftB 

'^REVIEW ■■■■EDIT ■fRINT"; 

210 POSITION 2,l!PRINT LIN$; 

220 POSITION H.ViPRINT " ";Btj 

Input loop. 

499 REM INPUT LOOP 

500 SET »l,C:C$=CHRt(C) 
520 IF C^RTN THEN C$<R$ 

639 REM BACKSPACE 

640 IF COBKSP THEN 720 

650 IF CHAR<2 THEN L$="":6QT0 500 

660 PRINT Bi;" "iB*; 

670 CHAR<HAR-1 

675 IF CHAR<2 THEN 500 

680 L$=L$(1,CHAR-1) 

700 GOTO 500 

719 REM CHK FOR CTRL CHAR 

720 IF C<SPC THEN 2000 

739 REM CHK FOR END OF LN 

740 CHAR=CHAR+1:IF CHAR<LSID OR C=SPC 
OR C^RTN THEN 740 

750 BOSUB 1000 

759 REM ADD TO STRING 

760 L1(CHAR-1)=C$ 

779 REM RETURN 

780 IF CORTN THEN 880 
320 PRINT C* 

340 BOSUB 6000!SL0C=0 

850 CHAR=1 

360 SOTO 500 

879 REM PRINT ON SCRN 

380 PRINT C$; 

399 REM UPDATE SPC PNTER, CHK FOR END 

OF LINE 

900 IF C=32 THEN SLQC=CHAR-1:IF CHAR=L 

HID THEN SOSUB 6000:CHAR=I:SLOC=0:PRIN 

T 

920 GOTO 500 

Subroutine to break line at a space 
and to Initialize the next line. 

1000 IF SLOC=0 THEN PRINT :60TO 1100 

1020 SS=LHID-SL0C-1:F0R J=l TO SS:PRIN 

T B»;:NEXT J 

1040 FOR J=l TO SS:PRINT " ";:NEXT J:P 

RINT 

1050 IF SLOC=LEN(L$) THEN LNVT$="":GOT 

1100 

1060 LNXT$=Lt(SLOC+l) 

1080 L»=L$(1.SL0C) 
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1100 6DSUB 6000 
1110 L$=LNXT» 
1115 LNXT$="" 
1120 PRINT L$; 
1140 CHAMEN(L$)+2 
1150 SLOC-0 
1160 RETURN 

Subroutine to process command 
codes. (Lines 2080, 2085, 2090, and 
2600 are new.) 

1999 REM PROCESS CTRL CHAR 

2000 V=PEEK(84):H=PEEK(85) 
2050 TL=LEN(T$) 

2060 T$(TL+1)=L$ 

2070 POSITION 2,0:PRINT S$:PRINT LIN$: 

2030 IF C06 THEN 2100: REH CTRL-F (BAC 

K TO EDIT) 

2035 IF CHAR>1 MN LP{LN)=LENiT$):LN- 

LN+l:LP(LNi=LEN(T$):Lf="" 

2090 RETURN 

2100 IF C=18 THEN 603UB 3000: REH CTL-R 



2200 IF C=19 THEN GOSUB 4000:REt1 CTL-S 
2300 IF C=^12 THEN 60SUB 5000:REH CTL-L 
2400 IF C=17 THEN END :RE« CTL-Q 
2500 IF C=16 THEN BOSUB 7000:REI1 CTL-P 
2600 IF C=5 AND LN>1 THEN I=LN-1:V'M': 
POSITION 2,VV-1:G0SUB 9000:60SUB 3000: 
REM CTL-E 

2900 IF TDO THEN T$=T$(1,TL) 
2950 SOTO 200 

Subroutine to review entered text. 
(Lines 3100 and 3125 are changed; 
and original lines 3130, 3140, and 
3150 are deleted. Line 3055 may be 
optionally deleted.) 

2999 REM REVIEW TEXT 

3000 PRINT CL$; "Press any key Id pause 
":PRINT LIN$ 

3040 IF LN^l THEN 3210 
3050 FOR 1=1 TO LN-1 
3055 FOR Z=l TO 20:NEXT Z 
3060 PRINT T$(LP(I-1)+1,LP(I)) 



3070 IF PEEK(764)=255 AND NOT STP THE 

N 3200 

3080 STP=0:POKE 764,255 

3090 VV=PEEK(84) 

3100 POSITION 2,1:PRINT LIN$;:POSITION 

2,0: PRINT " RTN:Cont SPC:Stp 

EiEdit •; 

3120 .1(=PEEK( 764): POKE 764,255 
3125 IF X=42 THEN BOSUB 9000:60TO 3000 
3160 IF X=12 THEN 3190 
3170 IF X033 THEN 3120 
3180 STP^l 

3190 POSITION 2,VV:PQKE 764,255 
3200 NEXT I 

3210 X=LP(LN-1)+1:IF XOLENIT*) THEN P 
RINT T*(X)i 

3220 H=PEEK(85):V=PEEK(84) 
3230 RETURN 

Subroutine to save text to disk or 
tape. (Lines 4075, 4082, 4083, and 
4085 are changed.) 



Bugs, Worms 

and other undesirables 



The SoftSide Annual April Fools Bug 
Report (Seriously. . . the joke is on us!) 

Add the following line to the 
ATARI® version of Space Rescue 
(February, 1982): 

65 IF STRIS{0)=0 THEN 80 

And change these lines to correct those 
listed in the magazine and supplied on 
media: 

690 FDR I=P2 TO 1 STEP -1:S0UND 0,1*20 
+40,10,10:FOR W^l TO 50:NEXT W:NEXT I: 
SOUND 0,0,0,0: IF P2<6 THEN 699 
693 POSITION 10,16:? "Ut BONUS SHIP! 
in";:SL=SL+l:FOR P2=l TO 4:F0R AZ=80 
TO 185 STEP 6 

696 SOUND 0,AZ,10,10:SCUND 0,AZ+50,10, 
10:NEXT AZ:NEXT P2 

699 FOR W=ll TO 111 STEP 5: FOR AZ=lil TO 
H-7 STEP -hSOUND 0,AZ,10,10:NEXT AZ: 
NEXT W:SOUND 0,0,0,0:BOTO 20 

In the TRS-80® version of Space 
Rescue, change the following line: 

1000 Z=0:F0RX=lTD15e:READY:Z=Z+Y:NEXT:IF 

Z<.>I5204TH£NCLS;PfiINT"DATA BASE ERROR IN 

LINES 1030-lOeO. CHECK LISTING. ":PRINT: 





LIST IC30-1080ELSEY=e6:X=255:P0KE-l,0;IF 
PEEt(i-l)<>0THENX=191:PQKE-16385,O:IFPEEK 
(-16385)<>0THENX=127 

Line 6000 in COMMANDing BASIC 
(November, 1981) should be changed 
as follows: 

60000 Z=0:FORX=1T0158:READY:Z=Z+Y:NEXT:I 
FZO15204THENCLS: PRINT-DATA BASE ERROR I 
N LINES 60060-60160. CHECK LISTING, ":PRI 
NT:LIST60060-60160ELSEY=86:X:^255:PQKE-1, 
0:IFPEE)a-l)<>0THENX=191;P0KE-163B5,0:IF 
PEEK(-163B5i<>0THENX=127 

In Titan ATARI® version (December, 
1981) the following line should be 
changed: 

S590 SETCOLOR 4,5,0:SETC0L0R 2,5,0:PDS 
ITION 4,22:? "The supervisor or;A$(YI 
10-9,YtlO)i"ha5 won":G0T0 8640 

TRS-80® Version 

8590 PRINTJ960,"The supervisor orjMID»( 
A«,YI10-9,10);" has won the right to nin 
e TITAN" •i:G0TD8700 

The ATARI® version of Gambler 
(January, 1982) should have a Hue 
added to zero the L array, as follows: 



17 FOR bl TO 6:L(r;=0:NEXT I 

Without this line it's possible to get an 
Error 18 under certain conditions while 
playing the Lottery. 

Also in the ATARI® version of 
Gambler, replace line 751 with the 
following line. These instructions will 
help correct the shape of the horse in 
the Horse Race routine. 
751 REH 1st string: (SHIFT)' - ' <CT 
RL>U <ESC><CTRL>= 5<ESC><CTRL>+ <CTRL> 

' U ■' 

In the Apple Program, Rubicube 
(February, 1982), there is a minor error 
in the instructions printed by the pro- 
gram. Line 2860 should be corrected as 
follows: 

2860 HOME : PRINT "EACH FACE H 
AS A ONE-LETTER NAME—- F 
)RQNT, P)OSTERIOR, DEFT, R) 
I6HT, T)QP,AND B)OTTOn. HIT 
ANY KEY TO GO ON.";: GET 
At 
Also, in the variable list accompanying 
the program, variables C, C2, and C7 
should refer to the column number, 
not the row number. 

In the ATARI® Database program 
(December, 1981) the following lines 
should be corrected as shown, in order 
to clear the screen before each for- 
matted record is printed: 

1220 ? CHR*(125);;0N FS BOSUB 1270,131 
0: POSITION N2,22:? "PRESS RETURN (ESC 
FOR MENU)"; 
1270 IF SB=N4 THEN PRINT CHR$(125); 
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3999 REH SAVE TO DISK/TAPE 

4000 POSITION 2,0:PRINT S$;:POSITION 2 
,0:PRINT "Save to Tape or Disk? (T/D/E 
SO "i 

4020 GET i\,t. 

4030 IF )(=27 THEN 4400 

40i0 IF )(=84 THEN 4200 

4070 IF X068 THEN 4000 

4075 F1$=F$ 

4080 POSITION 2,0:PRINT 3$;:P0SITI0N 2 

,0: PRINT "File Naie: ";: INPUT F$ 

40S2 IF F»="" AND Fl$="" THEN 4080 

4083 IF fi="" THEN F$=F1$ 

4085 IF F*(1,1)<>"D" THEN FT$="D:":FT* 

(3)=F$:F$^FT$ 

4090 POSITION 2,0:PRINT "Insert disk a 

nd press RETURN";. -SET II, X 

4100 OPEN I2,8,0,F$;B0T0 4210 

4200 POSITION 2,0: PRINT "Start tape re 

corder and press RETURN";:6ET II, .K 

4205 OPEN «2.e.0."C:" 

4210 PRINT I2;LN:PRINT ♦2;SL0C:PRINT I 

2; CHAR 

4220 FOR 1=1 TO LN-1 

4230 PRINT I2;T$(LP(.I-1)+!,LP(I)) 

4240 NEH I 

4250 IF CHAR>1 THEN PRINT l2;T*(LPiLN- 

1)+1) 

4300 CLOSE 12 

4400 RETURN 

Subroutine to load text from disk or 
tape. (Lines 5075, 5082, 5083, and 
5085 are changed.) 

4999 REM LOAD FROM DISK/TAPE 

5000 POSITION 2,0:PRINT S$|. 'POSITION 2 
,0:PRINT "Load froi Tape or Disk"? (T/D 
/ESC) "; 

5020 SET ll.X 

5030 IF K=27 THEN 5400 

50iO IF )(=84 THEN 5200 

5070 IF )i<>68 THEN 5000 

5075 FI$=F$ 

5080 POSITION 2,0:PRINT SipPOSITION 2 

,0:PRINT "File Naae: ";:INPUT Ft 

5032 IF Ft="" AND Fl$="" THEN 5080 

5083 IF ?i=" THEN F$=F1$ 

5085 IF F*il,l)<>"D" THEN FT$="D:":FT$ 

(3)=F*:F$=FT$ 

5090 POSITION 2,0: PRINT "Insert disk a 

nd press RETURN";:6£T II, X 

5100 OPEN l2,4,0,F$;eOTO 5210 

5200 POSITION 2,0:PRINT "Start tape re 

corder and press RETURN"; :6ET ll.X 

5205 OPEN I2.4,0,"C:" 

5210 INPUT 12 ;LN: INPUT 12 ;SLOC: INPUT I 

2; CHAR 

5215 T$="" 



5220 
5230 
5240 
5250 
5255 
5260 
N(T» 
5300 

5400 



FOR 1=1 TO LN-1 

INPUT l2,TT$:T*(LENiT$)+l)=TT$ 
LP(I)=LEN(T$) 
NEXT I 

TL=LEN(T$):L$="" 

IF CHAR>1 THEN INPUT ♦2,TT$:T$(LE 
)+l)=TT»:LP(LN)=LEN(Tt):Lt=TT$ 
CLOSE 12 
60SUB 3000 
RETURN 



Subroutine to add a line of text to 
the main text string. 

5999 REH ADD LN TO TEXT STRING 

6000 T$(LEN(T$)+1)=L$ . 
6080 LFiLN)=LEN(T*) 

6100 LN=LN+1:LP(LN)=LEN(T$) 
6150 L$="" 
6200 RETURN 

Subroutine to print the text file In 
memory to a printer. 

6999 REIi PRINTOUT RTN 

7000 PRINT CL$:POSITI0N 2,6:LIN=0 
7010 -> "Left sargin"? (Default = 10) "; 
i INPUT X$:LI1=10:IF LENfX$)>0 THEN IF V 
ALfXD.Hi THEN L(1=yAL!X$):IF LI1>37 THEN 

LH=37 
7020 PRINT :PRINT "Right sarqin? (Defa 
ult = 70) ■;:INPUT X*:RM=70:IF LENfX$) 
>0 THEN IF VfiLiX$)>0 THEN RM=VAL(X$) 
7030 PRINT :PRINT "Line spacing? (Defa 
ult = 2) ";:INPUT X«:LS=2:IF LEN(X*)>0 



THEN IF VAL(X$)>0 THEN LS=VAL(X$) 
7040 LL=Rfl-LM 

7070 PRINT CL$:LPRINT "":P»="":CR=0:I= 


7080 1=1+1 :P$(LEN(F$)+1)=T$(LP(I-1)+1, 
LP(I)) 
7090 IF Pt(LEN(P$))=CR$ THEN CR=1:60T0 

7110 
7100 IF LEN(P$)<255-LWID AND KLN-1 TH 
EN 7080 

7110 60SUB 7500:CR=0 
7120 IF KLN-1 THEN 7080 
7130 LPRINT S$\l,Lr!);Lt; 
7150 LPRINT "" 
7160 60SUB 3000 
7170 RETURN 
7500 L<L 
7510 IF LEN(F$)>LL THEN 7550 

7520 IF ( NOT CR) THEN 7640 
7530 LP=LEN(P$1;IF LP<2 THEN PP$="'';P$ 
="":60T0 7590 

7540 PP$=P$(1,LP-1):P$="":60T0 7590 
7550 C$=P$(L,L):IF C$=« " THEN 7580 
7560 L=L-1;IF DO THEN 7550 
7570 L=LL 

7580 PP$=P$(i,L):P$=P$iL+l) 
7590 LPRINT S$(1,LN);PP$; 
7610 FOR J=l TO LS;lIN=LIN+1;LPRINT "" 
:NEXT J 

7615 IF LIN>59 THEN FOR i=[ TO 66-LIN: 
LPRINT "":NEXT J:LIN=e 
7620 IF LEN(P$)>LL THEN L=LL:60T0 7550 
7630 IF CR AND LEN(P1)>0 THEN 7530 
7640 RETURN 
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Subroutine to readjust lines in 
memory so that ttiey fit properly on 
the screen after editing. (This 
routine is wholly new.) 



7999 REH TEH REJUSTIFY RTN 

8000 PRINT CL»:POSITION 2.5:PRINT "Re- 
mstifyinq le«t. . ." 

8010 TL=LENi:T$):N=EL+NL-l:C=LP(N)ti;SL 

=C-l:CH=C-LP(N-l! 

8020 Ct=T$(C,C) 

8030 IF Ct=CRt THEN 3100 

8035 IF C=TL THEN FL=l:SLOi>SL-LP(N-lJ 

:GOTD 8100 

3040 IF C$=" " THEN SL=C 

8050 IF CH<LH1D-1 THEN CH=CH+1:C=C+1:G 

OTO B020 

aOiO IF SL=LP(N-li THEN SL=C 

8070 LPiN)=SLiC=SL+l:N=N+l:CH=l:6QT0 8 

020 

8100 lP(N)=C 

3110 IF LF(N)=LP(N+1; THEN LN=LN-1:F0R 

I=N TO LN-l:LP(I)=LPiI+l):NEn I 
8120 RETURN 



Subroutine to edit lines of text. (This 
routine is wholly new.) 



8999 REM EDIT SUBR 

9000 FL^OiIF CHfiR>l THEN LP(LN;=LEN(Ti 
):LN=LN+1:LP(LN)=LEN(T$):L$="":FL^1 
9005 POKE 752,1:IT=I;IF 1)21 THEN yi=2 
2;6QT0 9040 

9010 yi=I+!:PQSITiON 2,VV 

9020 2=21: IF )(>LN-1 THEN X=LN-I 

9025 IF X=IT THEN 9040 

9030 FOR I=IT+1 TQ hPRINT T$!LP(I-l! + 

l,LPii)):NEn I 

9040 EL=Vl+iIT>21itiIT-21)-l 

9050 Q$="UP/DN:Move RTN:Ed5t DJ:Cei 

ESC: Exit" 

9060 POSITION 2.0:PRINT Q$;PRINT LIN* 

9030 C=HSCatiLP(EL-l! + l!):PDSIT!ON 2, 

V1:PRINT CHR$iC+-128i;:6ET 11, x 

9085 POSITION 2,V1:PRINT CHRIiCJ; 

9090 IF u>45 THEN 9130:REM UP 

9100 IF Vl>2 THEN V1=V1-1:EL=EL-1:G0TG 

9 (\ P, ii 

'JJlO IF EL=1 THEN 9030 
9115 EL=EL-5:IF EL<1 THEN EL=1 
9118 NN=20;IF EL+NN>LN-1 THEN NN==LN-EL 
-1 

9120 POSniON 2,2:F0R I=EL TO EL+NN:^ 
3$;"";T*(LPU-li+l,LP(Iii;NEXT I:60TQ 
9090 
9130 IF XU61 THEN 9180:REH DOWN 
9140 IF EL>=LN-1-FL THEN 9080 



9150 EL=EL+1 

9160 IF yi<22 THEN yi=VH-l:GOTO 9080 
9165 NN=4:IF NN>LN-EL-1-FL THEN NN=LN- 
EL-l-FL 

9170 EL=EL+NN:POSiTION 2.23:F0R I=EL-N 
N TO EL:PRINT T$iLP(I-liM,LP(I) i:NEXT 
I: GOTO' 9060 

9180 IF 1-21 THEN 9580: REM ESC 
9190 IF s<>68 OR yi=2 THEN 9250:RE« D 
9200 NC=lP(ELS-LP(EL-1):IF EL=LN-i THE 
N T$=T$!l,LPiEL-nJ:60T0 9205 
9202 T$(LPiEL-li+l)=Tt(LP(ELi+li 
9205 FOR J=EL TO LN-1:LP(J)=LP(J+1)-NC 
:NEXT J 
9210 X=22-V1:!F X>LN-EL-2 THEN X=LN-EL 

9220 POSUION 2,yi:IF EKLN-1 THEN FOR 
J^EL TO EL+X:PRINT St;""iT*\LP(J-l!+ 
1,LP\J));NEXT i 
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9225 PRINT S*; 

9230 IF EL=LN-1-FL IHEN Vl=yi-1:EL==EL- 

1 

9240 LN=^LN-1:S0TG 9030 

V250 IF XOB8 THEN 9310:REM X 

92&0 POSITION 2,0:PRINT "Delete froiTi h 

ere to the end of text""!;GET «i,s:IF 

X<;-89 THEN 9060 

9270 lN=EL:L$="":CHhR=1:SL0C=0;IF LN>1 

THEN T$=T$(1,LP!LN-1)):60T0 5230 
92/5 Tt="" 

9280 TL=^LEN(T$J:GOTO 9530 
9310 IF XOISj THEN vOSO 

9319 REM EDIT LINE 

9320 L1=EL-8:IF LKl THEN Li = ! 

9330 L2=ELt8;IF L2>LN-1 THEN L2=LN-1 
9340 PRINT CL$;"Type neH line below (■ 
F to finish) ":PRINT LIN$ 



9350 FOR J=L1 TO EL:PRINT TtiLPiJ-D + l 

,LPi:.]i):NEXT J 

9360 PRINT :PRINT :PRINT :PR1NT 

9370 IF L2>EL THEN FOR J=EL+1 TO L2;PR 

INT T$iLP(J-l)+l.LP(Ji);NExT i 

9380 POKE 752,0:POSITION 2,EL-LU2 

9390 rLN=LN 

9410 C 1 =CHAR : S 1 =SL OC : CHAR= 1 : SLnc=0 

9420 60SUB 500 

9430 CHAR=C1:SL0C=S1 

9450 NL=:LN-TLN: NC=LP (LN-l ! -LP i TLN-1 ) 

9480 IF EL<N-1 THEN T$=:T$n,LP(EL-l) i 

:60TD 9490 

9435 T$(LP(EL-Ii+l)=T$(LPiEL!+l! 

9490 cc=lp(el:i-lp(el-!:!;for j=el to LN 

-I:LPiJ)=LP(J+l)-CC:NEXT J:IF NL=0 THE 
N LN=TLN-1:BCT0 9530 
9500 X$^T$(LEN(Tt)i:IF XIOCRt AND t%( 
)' " THEN T$(LEN(Tt)+i)=" ":NC=NC+1:LP 
iLN-2) =LP (LN-2) +1 :LP (LN-l ) <P (LN-1 i +! 

9502 CN=LP(EL-1/:F0R I=LEN!T$i TO CN+i 
STEP -NC:IF HNC THEN T$(CN+NCH. 1+NC 

i=T$(CN+l,Ii:G0T0 9504 

9503 Tf(lH,I+NC)=T$(I-NC+l,I) 

9504 NEXT I 

9505 TI(CN+l.CN+NC)=Ti(LEN(TI)-NC+!) 

9506 FOR I=lN-2 TO EL STEP -i:LP(I+NLi 
=LPiI)+NC:NEXT I 

9508 J^TLN+NL-l;K=LP'LN-2)-LP(EL-l!:FQ 
R 1=0 TO NL-l:LPiELtI!=LP!j+I)-K:NEXI 
I 

9510 T$=f$il,LENiT$)-NC} 
9530 LN=TLN+NL-I;IF X*=CR$ OR EL=LN-NL 
THEN 9530 
'?55ii SS=1 ;Pi=T$ iLP (EL+NL-1 ! +1 .LP (EL+NL 
M;LL=LEN(Pti 

9560 IF P*i3S,3S)<>" " AND 3S<LL THEN 
SS=SS+1:80TO 9560 

9570 IF LP(EL+NL-l)-LP(EL+NL-2)+SS<=Lii 
ID THEN 603UB 8000 

9580 fL=LEN(I$):IF PL THEN LN=LN-1;L*= 
Tl(LP!LN-l}+l,LP(LNii:CHAR=LEN{L$)+l:T 
L=LPiLIM) 
9600 STP=0:PCKE 752,0:RETURN 



Error-handling routine. 



19999 REM ERROR-HANDLING RTN 

20000 CLOSE i!2:E=PEE((il95f 

20010 POSITION 2.0:PRINT S*;:POSITION 

2,0:PRINT "Error: Code ";E;"j press an 

V kev"; 

20020 GET II, X 

20030 TRAP 20000 



20040 GOTO 200 



«% 
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« TRS-80 BASIC « 

« "NICROTEXT 1.2" * 

t AUTHOR: JON R. VOSKUIL t 

» (C) 19B2 SOFTSIDE $ 

Title page. (Lines 20 and 40 are changed.) 

10 CLS: PRINT CHR$(23) 

20 PRINT 8198, "H I C R T E X T 1,2" 

30 PRINT S462, "BY JON R. VOSKUIL" 

40 PRINT i640,"(C) 1982 SOFTSIDE PUBLICATIONS" 

50 FOR Z=l TO 1000: NEXT Z: BOTO 100 

IMixed-case printout conversion routine. 

59 ' LOWERCASE PRINT RTN 

40 X»="": IF PP«="" THEN 74 

62 LOK=0! LC.=-1: FOR K^l TO LENiPPt): CC=ASC(NID«(PP»,K,1) ): IF 

CC=32 THEN LOK=0 

44 IF CC044 THEN 70 

64 IF LC=0 THEN L0K=-1 

48 LC=0: GOTO 72 

70 LPRINT CHR*(CC-32< (LC AND C044 AND CC<91) t -(NOT LOK));:LC 

=-1 

72 NEXT 

74 RETURN 

Initialization. (Lines 110 and 200 are changed.) 

99 ' INITIALIZATION 

100 CLS 

110 CLEAR 28000 

115 DEFINT A-Z 

120 DIK L»(500) 

125 ON ERROR BOTO 20000 

130 BKSP=8: RTN=13: SPC=32: CLR=31: B$=CHR»(8)! CR*=CHRt(140) 

140 CHflR=l 

145 CU$=CHR*(95) 

150 LN=1 

180 LNID=42 

190 P=128 

200 PRINT 30,"SAVE!CLR-S LDAD:CLR-L REV«;CLR-R EDIT:CLR-E 

PRINT:CLR-P" 
210 PRINT8 44, STRING* (63, "-"I; 
220 PRINT 8P,""j 

Input loop. (Lines 530 and 740 had been omitted in 
version 1.1, and are included here as they should be.) 

499 ' INPUT LOOP 

500 PRINT CU»j 

505 C»=INKEY»! IF C*="" THEN 505 ELSE C=ASC(C<) 
520 IF C=RTN THEN C*=CR« 

530 IF O90 THEN PRINT B«!"8 ")! L«(LN)=L»(LN)+"8"i CHAR=CHAR+1; 
C«=CHR«(C-32); 60TO 740 

439 ' BACKSPACE 

440 IF C=BKSP THEN IF CHAR<2 THEN 505 ELSE PRINT B$sB*i; CHAR=CH 
AR-1: L$(LN)=LEFT«(L«(LN), LEN(L*(LN))-1): GOTO 500 



719 ' CTRL CHARACTER 

720 IF C=CLR THEN 2000 

739 • END OF LINE 

740 CHAR=CHAR+li IF CHAR>=LIIID AND COSPC AND CORTM THEN 60SUB 
1000 

759 ' ADD TO STRING 
740 L«(LN)=L*(LN)+C* 

779 ' RETURN 

780 IF C=RTN THEN PRINT B*)C«: LN=LN+l! L<(LN)="": SL=0: CHAR=1: 
GOTO 500 

879 ' PRINT ON SCREEN 

880 PRINT 6$;Ct; 

899 ' UPDATE SPC POINTER, CHK END OF LINE 

900 IF C032 THEN 500 ELSE SL=CHAR: IF CHAR=L»IID THEN LN=LN+1: L 
»(LN)="": CHAR=1: SL=0: PRINT 

920 GOTO 500 

Subroutine to break line at a space and to initialize 
the next line. 

999 ' JUSTIFY AND INCR LINE 

1000 IF SL=0 THEN PRINT; GOTO 1100 

1020 SS=LNID-SL: FOR J=l TO SS: PRINT B*;: NEXT 

1040 PRINT STRINB»(SS,32)|:PRINT 

1050 IF SL=LNID-1 THEN 1100 

1040 Lt(LN+l)= RIBHT$(L»(LN), LHID-1-SL) 

1080 L«(LN)= LEFTt(L$(LN), SL-1) 

1100 LN=LN+1 

1120 PRINT L»(LN)iCU»; 

1140 CHAR=LEN(L»(LN))+2 

1150 SL^O 

1140 RETURN 

Subroutine to process command codes. (Lines 2050 
and 2600 are changed.) 

J 999 ' PROCESS CTRL CHARACTERS 

2000 P=PEEK(14414) + PEEK(16417)«254 - 15340: "CURSOR PSN 
2020 C*=INKEY«: IF C»=" THEN 2020 
2030 C=ASC{C$) 

2050 IF C=70 THEN RETURN: 'BACK TO EDIT 
2100 IF C=82 THEN GOSUB 3000: GOTO 200: 
2200 IF C=83 THEN GOSUB 4000: SOTO 200: 
2300 IF C=76 THEN GOSUB 5000: GOTO 200: 
2400 IF C=81 THEN END: 'QUIT 
2500 IF C=80 THEN GOSUB 7000: GOTO 200; 
2400 IF C=49 AND LN>1 THEN I=LN-1: PP=P; 
BOTO 200: 'EDIT 
2800 P=P-1: GOTO 200 



'REVN 
'SAVE 
'LOAD 

'PRINT 

GOSUB 9000; GOSUB 3000: 



Subroutine to review entered text. (Lines 3055, 3110, 
and 3130 are changed. Original lines 3140, 3145, and 
3150 have been deleted.) 

2999 ' REVIEN TEXT 

3000 CLS; PRINTS 21, "PRESS ANY KEY TO PAUSE"; PRINT STRING»(43, 
"-") 

3040 IF LN=1 THEN 3210 

3050 FOR 1=1 TO LN-1 

3055 FOR Z=l TO 20; NEXT Z 

3040 PRINT L»(I) 

3070 IF INKEY»="" AND NOT STP THEN 3200 

3080 STP=0 

3090 PP=PEEK( 14414) + PEEK(14417)»256 - 15340 
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3110 PRINTS 0, " ENTER: CONTINUE SPACEBftR: STEP 1 LINE 


5110 INPUTIl, L$(0) 




E:EDIT "i STRIN6«(i3,"-'); 


5120 60SUB 5290 




3120 )(»=INKEY$i IF n=" THEN 3120 


5130 FOR 1=1 TO LN 




3130 X=ASC(Xt)! IF X=A9 THEN 60SUB 9000! SOTO 3000 


5140 LINEINPUTIl, Ltd) 




im IF X=13 THEN 3190 


5170 NEXT I 




3170 IF X032 THEN 3110 


5180 CLOSE 




3180 STP=-1 


5200 GOTO 5250 




3190 PRINT aPP,"j 


5210 PRINTS 0, "START RECORDER AND PRESS ENTER."; 




3200 NEH I 


5215 IF INKEY«<>CHR»{13) THEN 5215 




3210 PRINT L«(LN)i 


5220 INPUTI-1, L«(0); 80SUB 5290 




3220 P=PEEK(14416) + PEEK(li417)«25A - 153i0 


5230 FOR 1=1 TO LN 




3230 RETURN 


5235 INPUT«-1, L«(I) 
5240 NEXT I 




Subroutine to save text to disk or tape. (Lines 4075, 


5250 60SUB 3000: RETURN 




4085, 4088 are new.) 


5290 Lt=Lt(0)i L=LEN(L*) 

5300 CHAR= VAL(RIEHT$(L«,2)): Lt=LEFT«(L»,L-2) 




3999 ' SAVE TO DISK/TAPE 


5310 SL= VAL(RI6HT»(L»,2))! L»=LEFT$(L*,L-5) 




4000 PRINTJi4,STRINB»(63,"-"):: PRINTS 0,STRIN6«(63,32)!! PRINTS 


5320 LN=VAL(L») 




0, "SAVE TO TAPE OR DISK? (T/D/CLEAR) "; 


5330 RETURN 




4020 )(«=INKE¥«! IF X$="" THEN 4020 






4040 IF I$=CHR$(CLR) THEN 4220 


Subroutine to print the text file in memory to a 




4050 L$(0)=STR«(LN) +STRt(10000+SL«100+CHAR) 


printer. 




4055 PRINTS 0, STRING* (35, 32); 






4060 IF U='T" THEN 4190 


6999 ' PRINTOUT RTN 




407O IF X«<>"D" THEN 4000 


7000 CLS; LIN=0 




4075 Fl*=Ft 


7010 X«="10"; INPUT'LEFT MARGIN (DEFAULT = 10) ";X*: LM= 


VAL(X$1 


4080 PRINTS 0, ""|! LINEINPUT "FILE NAME: ";F« 


7020 PRINT: X*="70': INPUT"RIGHT MARGIN (DEFAULT = 70) " 


;X»: RM= 


4085 IF Ft="" AND Fl»=" THEN 4080 


VAL(Xt) 




4088 IF F«=" THEN F$=F1* 


7030 PRINT: X«="2": INPUT"LINE SPACING (DEFAULT = 2) "iX»: LS=VA | 


4090 PRINTS 0, "INSERT DISK AND PRESS ENTER.": PRINT STRIN6«(i3, 


L(Xt) 




■-■); 


7040 LL=RH-LM 




4095 IF INKEy»<>CHR*(13) THEN 4095 


7050 PRINT! X*="N"! INPUT'CONVERT TO LOWERCASE, UNLESS PRECEDED 


4100 0PEN»0",1,F* 


BY S (DEFAULT = NO) ";XI: UC=-l! IF LEFT«(Xt,l)="Y" THEN UC=0 


4140 FOR 1=0 TO LN 


7070 CLS: LPRINT"": Pt="": CR=0! 1=0 




4150 PRINTtl, L$(I) 


7080 1=1+1: P«=P»+L»(I) 




4160 NEXT I 


7090 IF RIGHTt(P>,ll=CR* THEN CR=-I: GOTO 7110 




4170 CLOSE 


7100 IF LEN(P$)<255-L«ID AND KLN THEN 7080 




4180 SOTO 4220 


7110 G0SU6 7500: CR=0 




4190 PRINTS 0, "START RECORDER AND PRESS ENTER. »; 


7120 IF KLN THEN 7080 




4195 IF INKEV«>CHR»(13) THEN 4195 


7130 LPRINT TAB(LM);: IF UC THEN LPRINT P*;: GOTO 7150 




4200 FOR 1=0 TO LN 


7140 PP*=P*: 60SUB 60 




4205 PRINT#-1, CHR*(34);Lt(I)|CHR«(34) 


7150 LPRINT"" 




4210 NEXT I 


7160 60SUB 3000 




4220 P=P-l! RETURN 


7170 RETURN 
7500 L=LL 




Subroutine to load text from disl< or tape. (Lines 


7510 IF LEN(P»)>LL THEN 7550 




5065, 5075, and 5078 are new.) 


7520 IF NOT CR THEN 7640 

7530 LP=LEN(Pt)! IF LF<2 THEN PP$="": Ft="": GOTO 7590 




4999 ' LOAD FROH DISK 


7540 PPt=LEFT«(P«,LP-l): P$=""! GOTO 7590 




5000 PRINTS64, STRIN6«(63,"-")i: PRINTS 0, STRIN6t(63,32);: PRIN 


7550 C$=MIDt(Pt,L,l): IF C$=" " THEN 7580 




TS 0, "LOAD FROM TAPE OR DISK? (T/D/CLEAR) '; 


7560 L=L-l! IF DO THEN 7550 




5020 X«=INKEV«; IF X$="" THEN 5020 


7570 L=LL 




5040 IF X$=CHR|{CLR) THEN 5250 


7580 PP«=LEFT$(Pt,L); Pt=RIGHT$(Pt,LEN(P»)-L) 




5045 PRINTS 0, STRING«(40,32)i 


7590 LPRINT TAB(LM)i! IF UC THEN LPRINT PP»;i GOTO 7610 




5050 IF X*="T" THEN 5210 


7600 GOSUB 60 




5060 IF XtO'D" THEN 5000 


7610 FOR J=l TO LS: LIN=LIN+l! LPRINT"": NEXT J 




5065 FH=F* 


7615 IF LIN>59 THEN FOR J=l TO 66-LIN! LPRINT"": NEXT J: 


LIN=0 


5070 PRINTS O,";: LINEINPUT "FILE NAHE; "jFt 


7620 IF LEN(P$)>LL THEN L=LL! GOTO 7550 




5075 IF F«=" AND Fl$="" THEN 5070 


7630 IF CR AND LEN{Pt)>0 THEN 7530 




5078 IF F»=" THEN Ft=Fl« 


7640 RETURN 




5080 PRINTS 0,'lNSERT DISK AND PRESS ENTER.": PRINT STRING»(63," 






-■'; 


Subiuutine to readjust lines In memory so tfiat they fit 




5085 IF IN*;EY»<>CHR«(13) THEN 5085 


properly on the screen after editing. (This routine is 




5090 0PEN"I",1,F$ 


wholly new.) 
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7999 ' TEH REJUSTIFY RTN 

8000 CLSi PRINT'RE-JUSTIFVINe TEXT. . ." 
8010 LIN=EL! LN=LN-1 

8020 P«="": CR=0; I=EL-1 

8030 1=1+1: P$=P»+L$(I) 

8040 IF RIBHTt(P«,l)=CR» THEN CR=:-1: GOTO 8060 

8050 IF LEN(P»)+LEN(L«U+1))<256 AND KLN THEN 8030 

80iO 60SUB 8500 

8070 IF NOT CR THEN 8100 

8079 ' END OF PARAGRAPH 

8080 )(=I+1-LIN: IF X=0 THEN 8150 

8089 ' HOVE LNS DOWN IN ARRAY 

8090 FOR J=I + 1 TO LN: L$(J-)()=L»(J) 
8100 IF KLN THEN 8030 
8110 L«(LIN)=Pt 
8120 CHAR=LEN(P«)+l! SL=LEN(P«) 



NEXT J: LN=LN-X: BOTO 8150 



8130 FOR I=LIN+1 TO LN: L«(I)= 
8140 LN=LIN 
8150 RETURN 
8500 L=LHID 
8510 IF LEN(P$) 



NEXT I 



>LNID THEN 8550 



8520 IF NOT CR THEN 8i30 

8530 LP=LEN(Pt) 

8540 PPJ=LEFT*iP«,LP): P»="": GOTO 8590 

8550 C«=NID«(Pt,L,l): IF C$=" " THEN 8580 

8560 L=L-1: IF DO THEN 8550 

8570 L=LlilID 

8580 PP«=LEFT»(Pt,Ll: P$=RI6HT*(P«,LEN(P*)-L) 

8590 L$(LIN)=PPt 

8600 LIN=LIN+1 

8610 IF LEN(P*)>L«ID THEN L=LNID: GOTO 8550 

8620 IF CR AND LEN(P*)>0 THEN 8530 

8630 RETURN 

Subroutine to edit lines of text. (This routine is wtiolly 
new.) 

8999 ' EDIT LN SUBRTN 

9000 IT=I: IF I>13 THEN Vl=15: GOTO 9040 
9010 Vl=I+2! PRINT 8PP,; 

9020 X=13: IF X>LN-1 THEN X=LN-! 

9030 FOR I=IT+1 TO X: PRINT L$(I): NEXT I 

9040 EL=Vl-(IT>13)t(IT-13)-2 

9050 0«=" UP/DOWN ARRONSiNOVE ENTER:EDIT D,X:DELETE 
CLR:EXIT' 

9060 PRINT aO,Q»: PRINT STRINB«(63,'-")j 
9080 PRINT 8V1»64-2,"<E"; 
9082 IF PEEK! 14400) >0 THEN 9088 
9085 X»=INKEY$: IF X»=" THEN 9085 
9088 PRINT B«iB«j 
9090 IF X»<>CHR»(91) THEN 9130 
9100 IF Vl>3 THEN Vl=Vl-l! EL=EL-li GOTO 9080 
9110 IF EL=1 THEN 9080 
9115 EL=EL-5s IF EL<1 THEN El=l 

FOR 1=EL TO EL+12: PRINT Lid): NEXT-. GOTO 9 



9120 PRINT J127, 

080 

9130 IF X»<:>CHR»(10) THEN 9180 

9140 IF EL>=LN-1 THEN 9080 

9150 EL=EL+1 

9160 IF VK15 THEN V1=V1+1; GOTO 9080 



9165 NN=4: IF NN>LN-EL-1 THEN NN=LN-EL-I 

9170 EL=EL+NN! PRINT J960,ii FOR 1=EL-NN TO EL: PRINT Ltd): NEX 

T I: BOTO 9060 

9180 IF Xt=CHR»(CLR) THEN 9590 

9190 IF X«<>"D" OR Vl=3 THEN 9250 

9200 FOR J=EL TO LN-1: L«(J)=LJ(J+1): NEXT: L«(LN)=" 

9210 X=15-V1; IF X>LN-EL THEN X=LN-EL 

9220 PRINT JVU64-65,": FOR J=EL TO EL+X; PRINT L»(J)! NEXT 

9230 IF EL=LN-1 THEN V1=V1-1: EL=EL-1 

9240 LN=LN-1: GOTO 9080 

9250 IF XtO'X" THEN 9310 

9260 PRINT JO, "DO YOU NANT TO DELETE FRON HERE TO THE END OF TH 

E TEXT? (Y/N) "; 

9262 PR!NTSVl»64-2,"<E'i 

9265 X$=INKEYti IF X$=:"" THEN PRINTJVU64-2," ";:BOTO 9262 
9268 IF XtO'Y" THEN 9060 

9270 FOR J=EL TO LN: L»(J)="": NEXT J: LN^EL: CHAR=1: SL=0 
9280 PRINT 8VU64-65,"": FOR J=V1 TO 14: PRINT: NEXT J 
9290 PRINT 80, Q*; 

9300 PRINT 8Vlt64-66,"<E";: GOTO 9100 

9310 IF Xi<>CHR$(RTN) THEN 9080 

9320 Ll=EL-4: IF LKl THEN Ll=l 

9330 L2=EL+4: IF L2:>LN THEN L2=LN 

9340 CLS: PRINT'TYPE NEW LINE BELOW (CLR-F TO FINISH)": PRINT ST 

RING* (63,"-") 

9350 FOR J=L1 TO EL: PRINT L«(J): NEXT 1 

9360 PRINT: PRINT: PRINT: PRINT 

9370 FOR J=EL+1 TO L2: PRINT L«(J): NEXT J 

9380 PRINT 8(EL-L1+2)I64,; 

9390 TLN=LN: LN=LN+1 

9400 FOR J=l TO 5: L»(TLN+J)="": NEXT J 

9410 C1=CHAR: S1=SL: CHAR=1: SL=0 

9420 60SUB 500 

9430 CHAR=C1: SL=S1 

9440 IF L»(LN)="» THEN LN=LN-1 

9450 NL=LN-TLN 
9460 IF NL=1 THEN 9510 
9470 IF NDO THEN 9500 
9480 FOR J=EL TO TLN: L$(J) 
9490 Lt(LN)="": GOTO 9580 



=Li(J+l)! NEXT J 



9500 FOR J=LN TO EL+1 STEP-1: L«(J+NL-1):=L<(J): NEXT J 

9510 FOR J=0 TO NL-1: L*(EL+J)=L»(LN+J): L«(LN+J)="": NEXT J 

9520 CX<=RIGHT$(L$(EL+NL-1),1) 

9530 IF CX»=CR« THEN 9580 

9540 IF CX»<>" " THEN L»(EL+NL-1)=L$(EL+NL-1)+" " 

9550 SB=1; L«=L»(EL+NL): LL=LEN(Lt) 

9560 IF HID«(L«,SS,1)<>" " AND SS<=LL THEN SS=SS+1; GOTO 9560 

9570 IF LEN(L$(EL+NL-1))+SS <=LNID THEN GOSUB 8000: GOTO 9590 

9580 LN=TLN+NL-1 

9590 RETURN 



Error-handling routine. 

19999 ' ERRDR-HANDLING RTN 

20000 PRINT80,STRING»(63,32)j 
20010 E=ERR/2+l: PRINT80, "ERROR: 
20050 PRINT"; PRESS ANY KEY"; 
20060 IF INKEY»="" THEN 20060 
20070 P=P-l! RESUME 200 



CODE";E; 
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CRUSH 

THE G"^"' ' 




And guess who stars as the 
movie monster. You! As any of six 
different monsters. More if you 
have the disl< version. 

You can terrorize and destroy 
four of the world's largest and 
most densely populated cities in 
over 100 possible scenarios. 
From Tokyo to the Golden Gate, 
you are the deadliest creature in 
the air, on the land, or in the sea. 

You can be the deadly am- 
phibian who simultaneously 
smashes street cars, lunches on 
helpless humans and radiates a 
ray of death. 

If you were a giant winged 
creature, think of the aerial 
attacks you could make on the 
terrified but tasty tidbits beneath 
you. 

But as in all the best monster 
movies, you're up against every- 
thing the human race can throw 
at you — even nuclear warheads 
and a strange concoction devel- 
oped by a team of mad scientists. 

For only $29.95 you get 6 stu- 
pendous monsters, each with its 
own monstrous summary card, 
4 teeming metropoli displayed in 
graphic detail on your computer 
display and mapped in the 
accompanying 48-page illustrat- 
ed book, tine awesome sounds of 
monsterly mayhem, and spine- 
tingling, real-time, edge-of-your- 
seat excitement. 



''°*^ «. cHO»^P* 





GET CRUSH, CRUMBLE & CHOMP 

now at your local dealer for your APPLE, ATARI, 
or TRS-80 . . before Its too late. 



<# 




Explanation Of ATARf 
Line Listings 



SoftSide uses the following conventions in representing 
unprintable characters in ATARI® line listings, unless 
otherwise noted: 

Characters (including blank spaces) which are under- 
lined should be typed in inverse video. 

When graphics or control characters are to be included 
in a string (between quotation marks), that fact will be 
noted in a nearby REMark. In such cases, graphics 
characters are represented by the corresponding lower-case 
letter, and control characters are represented by the cor- 
responding unshifted key symbol. For example: The lower- 
case letter s represents a graphics cross, entered by holding 
down the CTRL key and then pressing the S key. The sym- 
bol = represents a control-down-arrow, entered by first 
pressing and releasing the ESC key, then holding down the 
CTRL key and pressing the = key. (See Appendix F, and 
the back cover, of the ATARI® BASIC Reference 
Manual. ) 

The one regular exception to the above is that a clear- 
screen character (ESC CTRL- < ) is represented in listings 
by a right-hand brace, which looks Hke this: } 

A shifted = is represented in the hstings by a vertical 
line with a small gap in it. ® 



WHEN YOU SPEND SO MUCH FOR A PRINTER, 
YOU SHOULD HAVE ONE THAT YOU CAN USE - 
Introducing.... 

THE IBM TOTAL PRINTER/TYPEWRITER 




$1695 



FEATURES: 

10 and 12 Pitch, Proportional Space, Full Typewriter Use, Auto Correcting, 
Sound Cover, "Smart" Keyboard 

SPECIFICATIONS: 

200 WPM Throughput, Either Serial OR Parellel, Self-Test, Lowest On-Site 
Maintenance, IBM Backed Printer. Cables stocked for all Apple, TRS(I, II, 
III), RS-232 systems. 



GUARANTEE: 30 days on-site by IBM 

CONTACT: 

ICOM 11 N. Main, Lombard, Illinois 60148 (312)932-1766 
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by Richard A. Bryant 

Semaphore is a Hi-Res graphic 
program for an Apple IL with Ap- 
plesoft, 48K RAM, and disk drive. 
It is included as a bonus program on 
this month's Apple Disk Version. 

Once in a while SoftSide receives 
a program submission which is truly 
unique. This program, written by a 
veteran Boy Scouts of America 
Scoutmaster, demonstrates the use 
of semaphore flags on the Apple's 
Hi-Res graphics screen. 

It offers both a teaching and a 
testing mode. In the teaching mode, 
the message being sent appears on 
the screen as it is being sent, with a 
cursor advancing from letter to let- 
ter. In the testing mode, the message 
does not appear until after it has 
been sent. 

As the receiver of the message, 
you can choose whether to respond 
or not as it is being sent. If you 
choose to respond, the program will 
pause after the initial "ATTEN- 
TION" has been sent and after each 
word sent; at the end of the entire 
message, you can signal either that 




APPLE-DV 



PHOUE 



N 




you have successfully received it or 
that you need to have it repeated. 

Strings of up to 79 characters can 
be sent at one time (one character 
less than two full lines). Note that 
numbers should be spelled out 
rather than entered as digits. A 
range of relative sending speeds is 
available, from (slow) to 500 
(fast). A good learning speed would 
be around 100; a good testing speed 
about 350. Five preset messages are 
built into the program for practice. 

On the disk, the program is 
distributed in four files. The one 
titled SEMAPHORE is the main 
control program which loads the 
shape table (SEMAPHORE 
SHAPES A$5060 L$5A0) and runs 
PART lA, which displays the main 
menu and instructions if desired. 
PART 2A is the Hi-Res program of 
a Boy Scout sending semaphore, 
and is made to print out on an Ax- 
iom IMP-2 if desired. On line 138, P 
equals the printer card slot, and line 
192 accomplishes the actual print- 
out. These, along with line 1120, 
can be eliminated or changed if 
you have no suitable graphics print- 
er or one that needs different 
instructions. © 
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Battleship 



An Applesoft K-Byter by David 
Bahr, Appleton, WI 

This is a battleship program that 
involves more than simply trying to 
come up with random numbers. It 
requires a knowledge of direction, 
and the skill of deductive reasoning. 

The computer begins by hiding 
seven ships on a 10 by 10 grid. Hav- 
ing done this, it will display the grid, 
giving no clue as to where the ships 
were placed. You will then be asked 
what coordinates you would like to 
bomb. After you input the numbers, 
you will be told if you hit a ship, and 
your sonar will tell you how many 
ships lie in each direction from your 
chosen coordinates. 

By placing your shots in strategic 
positions, your sonar and your 
deductive powers can home in on 
the most likely locations for the con- 
cealed ships. You'll find it a 
challenge to destroy all seven ships 
using less than the suggested 
"good" score of 20 shots. 



100 H = 7: DIM A(9,9):B$ = CHRt 

(7) + CHR$ (7) 
110 FOR Z = 1 TO H 
120 AX = INT ( RND (1) I 10)!flY = 

INT ( RND (1) t 10) 
130 IF fl(ft)(,flY) = 1 THEN GOTO 1 

20 
140 AlflX.AY) = 1: NEXT : GOTO 220 



150 VTflB 19: INPUT "INPUT X,Y CO 

ORDINATES:";AX,AY 
liO IF DX < OR DX > 9 OR DY < 

OR DY > 9 THEN 150 
170 T = T + 1: IF A(AX,AY) = 1 THEN 

GOTO 200 
180 IF A(AX,AY) = 4 GOTO 220 
190 A(AX,AY) = 3: GOTO 220 
200 HONE : VTAB 12: PRINT TflB( 



15);"IT'S A HIT";B$ 
210 FOR Z = 1 TO 700: NEXT :H = 

H - 1:A(AX,AY) = 4 
220 HOME : HTAB 14: PRINT ' 012 

3456789" 
230 FOR Y = TO 9: HTAB 15: PRINT 

Y;: FOR X = TO 9: ON A(X,Y 

) GOTO 240,240,250,260 
240 PRINT ■+■;: GOTO 270 
250 PRINT " ";: GOTO 270 
260 PRINT "I"; 
270 NEXT : PRINT : NEXT 
280 VTAB 4: HTAB 32: PRINT "'": HTAB 

32: PRINT "'": HTAB 32: PRINT 

"N" 
290 VTAB 5: HTAB 2: PRINT "SHIPS 

LEFT": HTAB 6: PRINT H 
300 IF T = THEN 150 
310 IF H = THEN 420 
320 VTAB 14: PRINT "SONAR REPORT 

n 

330 H = 0:E = 0:N = 0:S = 

340 FOR Y = TO 9; FOR X = TO 

9 
350 IF AX < 9 AND X > AX THEN IF 

A(X,Y) = 1 THEN E = E + 1 
360 IF AY > AND Y < AY THEN IF 

A(X,Y) = 1 THEN N = N + 1 
370 IF AY < 9 AND Y .> AY THEN IF 

A(X,Y) = 1 THEN S = S + 1 
380 IF AX > AND X < AX THEN IF 

A(X,Y) = 1 THEN W = W + 1 
390 NEXT X,Y 
400 PRINT • THERE ARE "iNj" SHI 

PS NORTH, ";S;" SHIPS 
SOUTH, ";E;" SHIPS EAST, AN 

D ";Hi" SHIPS WEST OF COOR 

DINATES ";AX;",";AY;"." 
410 GOTO 150 
420 VTAB 17: HTAB 15: PRINT "YOU 

MIN": PRINT B»;B»: PRINT : PRINT 

" IT TOOK ";Ti" SHOTS.": PRINT 

• (BELOH 20 IS GOOD)": END © 
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by Randy Fox 

finite Lightning is a graphics 
game program for an Apple with 
Applesoft and 16K RAM. 

This fast-moving color graphics 
game pits you against time and the 
limitations of your reflexes as you 
direct a moving line around the 
screen to intercept targets. The 
targets appear and disappear at ran- 
dom. Each time you hit one you in- 
crease your score; but at the same 
time, your line grows longer and 
becomes more difficult to 
maneuver. Hitting a screen border 
or your own "tail" (including doing 
an abrupt about-face) ends the 
game. 

The constantly moving line is 
directed from the keyboard using 
the E and D keys to turn it up or 
down, and the O and P keys to turn 
it left or right. (If you prefer using 
other keys, simply change the four 
numbers in lines 26-32 of the "read 
keyboard" subroutine.) 

When your score reaches the size 
of the 1% array, the line breaks. The 
forward portion of the line con- 



tinues as before, and the tail portion 
remains stationary as an obstacle, 
adding to the fun! 

If you're a compulsive program 
tinkerer and like to make modifica- 
tions, you might want to try ad- 
justing the multiplier values in the 
random number generators for TS 
(target score) and TT (target's time 
on the screen), in lines 222 and 224. 
This can make the game quicker or 
more sluggish, with higher or lower 
scores, as you wish. 

Variables 

A$: Input string. 

CA-CG: Constant values from -1 

through 5. 

CH: Constant value of 15 (the 

color of the tail). 

DI: Number of elements in array 

1%. 

GC: Game counter. Used to play 

"You Lose" music only every fifth 

game. 

GS: Grand score for current game. 

HI: High score for all games 

played at one sitting. 



HT: Total number of targets hit in 

the current game. 

HW: "Hit what?" — color value 

from SCRN function. 

1%: Integer array. Holds the 

previous moves by the leading 

point of the line by counter M. 

Decoded by counter R, the last 

block of the tail is erased as the 

front block is added. 

KB: Value from the keyboard 

location PEEK. 

LE: Game difficulty level. 

OM: Value to be encoded into 1%. 

Values I through 4 indicate moves 

up, right, down, or left. 

PH: Percentage of plotted targets 

hit in the current game. 

R, M: Counters to decode 

(remember) and encode (memorize) 

data for 1%. 

TA: Average points per target hit 

in current game. 

TP: Total number of targets 

plotted in current game. 

TT: Target's time on screen. 

TX, TY: X and y coordinates of 

the target. 

XL, YL: X and y coordinates of 

the screen location to be erased 

from the end of the tail (decoded 

from 1%). 

XM, YM: X-move and y-move 

values. Either may be -1, 0, or 1, 

to move the line right, left, up, or 

down. 

XN, YN: New x and y coordinates 

of the leading end of the line. 

XR, YR: X and y move values 

calculated from decoding 1%. 

Z: FOR-NEXT loop index. 
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'WHITE LIGHTNING' » 

AUTHOR: RANDY F0)( t 

(C) 1982 SOFTSIDE » 



Dimension i% and then jump to titie 
page. 

13 TEU : RESTORE : DIM 11(230) 
15 ROTO 782 



Read iceyboard. Set x-move, y-move, 
and old-move (XI\A, YM, and OM) 
values. 



22 O ^ PEEK ( - 16381! 

24 IF R + 2 = « THEN SOSUB 102 

26 IF KB = 196 THEN Xfl = CB:Yn = 

CCiOH ^ CF: RETURN 
28 IF KB = 197 THEN m ^ CB;Yfl = 

CA:OH =: CE: RETURN 
30 IF KB = 207 THEN XH = CA:Yfl = 

CB:OM = CD: RETURN 
32 IF KB = 208 THEN XH = CC:YM = 

CB:DM = CC: RETURN 
34 RETURN 

Print title line. 

42 GOSUB 92: PRINT TABi 4)"- H 
H I T E LIGHTNING 
-": PRINT : GOSUB 92: RETURN 



Check keyboard for keypress. Utilizes 
two entry points: Line 52 prints a 
prompt string; entering at line 54 skips 
the prompt. 



52 PRINT TAB( 8) 'PRESS ANY KEY 

TO CONTINUE' 
54 KB = PEEK ( - 16384): IF KB < 

127 THEN 54 
56 POKE - 16368,0: RETURN 



Initialize variables for a new game. 

72 Cft = - 1;CB = 0:CC = 1:CD = 2 
:CE = 3:CF = 4:CG = 5:CH = 1 
5:QH = 1 

74 TP = 0:HT = 0:L = 1:TT = 1:R = 
0!« = 0:GS = 




76 XN = 20:YN = 20: XR = 20:YR = 2 
0:XI1 = 1:YM = 0:XL = 1:YL = 


78 DI = 230 

80 RETURN 

Draw a line of asterisks. 

92 FOR Z = TO 39: PRINT '»";: NEXT 
Z: PRINT : RETURN 

Reset variables when tail breaks. 

102 XR = XN:YR = YN:XL = X!1:YL = 
YI1:M = 0:R = 0: RETURN 

Plot routine, to draw target. Color Is 
determined by other subroutines. 



162 PLOT TX + CA,TY: PLOT TX + C 
C,TY: HLIN TX + CA.TX + CC AT 
TY + CA: HLIN TX + CA,TX + C 
C AT TY + CC 

164 RETURN 



Draw playing field for higher difficulty 
level. 



182 READ A,B,C 

184 IF A = CH THEN 190 

186 HLIN XN + A,XN + B AT YN + C 

1B8 GOTO 182 

190 READ A,B,C 



192 IF A = CH THEN GOTO 198 

194 VLIN YN + ft,YN + B AT XN + C 

196 GOTO 190 

198 READ A,B 

200 IF A = CH THEN RESTORE : GOTO 

390 

202 PLOT XN + A.YN + B 

204 GOTO 198 

208 DATA -2,2,-5,-5,-2,-2,-5,-2 

210 DATA -16,-10,-1,-16,-10,1, 

10,16,1,10,16,-1,15,15,15 
212 DATA -4,-3,-2,-1,1,-5,3,4,- 

2,3,4,2,-1,1,5,-3,-4,2 
214 DATA -16,-10,-1,-16,-10,1, 

10,16,1,10,16,-1,15,15,15 
216 DATA 0,-3,-3,0,3,0,0,3,0,0 

,15,15 

Random number generators for target's 
X and y coordinates, point value, and 
time on the screen (TX, TY, TS, and 
TT). 

222 TS = INT ( RND (1) I 16): IF 

TS < 1 THEN GOTO 222 
224 TT = INT ( RND (1) I 22) + 2 

5: IF TT < 18 THEN GOTO 224 
226 TX = INT ( RND (1) > 37): IF 

TX < 3 THEN GOTO 226 
228 TY = INT (RND (1) t 37): IF 

TY < 3 THEN GOTO 228 
230 VTAB 23: HTAB 30: PRINT ' 
";: HTAB 30: PRINT TS 
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Search coordinates adjacent to TX, TY 


342 V = V + CA: IF V < 1 THEN GOTO 


522 


IF nm = CD THEN XL = CA:Y 


for screen color white. Jump to 


222 




L = CB: GOTO 526 


subroutine 222 to pick new coordinates 
If white Is found. 


344 GOSUB 22 


524 


IF n((1) = CC THEN XL = CC:Y 




346 R = R + CC: IF R > DI THEN R = 




L = CB 




CB 


526 XR = XR + XL:YR = YR + YL 


242 FOR A = - 1 TO 1 


348 IX(R) = OH: COLDR= CH:XN = XN 


528 


COLOR= CB: PLOT XR.YR 


244 FOR B = - 1 TO 1 


+ X!1:YN = YN + YM 


530 


GOTO 502 


246 IF SCRN( TX + A,TY + B) = C 


350 m = SCRN( XN,YN): IF HH = C 






H THEN GOTO 226 


D OR HH = CH THEN 602 


Text 


page for a k>st game. Calculate and 


248 IF SCRNI TJ + A,TY + B) = C 


352 FOR Z = 1 TO 40: NEXT 


display values. 


D THEN SOTO 226 


354 PLOT XN,YN: GOTO 342 






250 NEXT B 




602 


TEXT ; HOHE : POKE - 16368, 


252 NEXT A 


Draw the playing field. Add obstacles as 









selected by skill level variable (LE = 


604 


IF GS > HI THEN HI = GS 


Count number of targets printed. 


denotes a nonnal game, LE = 1 denotes 


606 


VTAB 3: PRINT TAB! 12!°S0RR 




increased difficulty). 




Y, YOU LOSE" 


262 TP = TP + CC 




608 


PRINT : IF HW = CD THEN PRINT 
TfiB( 3) "YOU HIT THE BORDER 


Set target color and draw target with 


372 HOME : BR : COLORE CD 




OR AN OBSTACLE" 


sound. 


374 GC - GC + 1 


610 


IF HH = CH THEN PRINT TAB( 




376 FOR Z - TO 39 




1)"Y0U REVERSED DIRECTION OR 


282 COLOR= CF! POKE 768,190: POKE 


378 PLOT Z,0: PLOT 39, Z: PLOT 39 




HIT THE TAIL" 


769,10: CALL 770: POKE 768,1 


- Z,39: PLOT 0,39 - I 


612 


IF GC = 1 THEN BOSUB 802 


90: POKE 769,10: CALL 770: POKE 


3B0 NEXT Z 


614 


IF GC / 5 = INT iGC / 5) THEN 


768,144: POKE 769,20: CALL 7 


382 PRINT : PRINT "YOUR SCORE="; 




GOSUB 802 


70: GOSUB 162:L = CB: GOTO 5 


GS, "TARGET SCORE=';TS 


616 


PRINT : PRINT TAB( 12) "YOUR 


02 


384 XL = CC:YL = CB 




SCORE IS ";GS 




386 IF LE = 1 GOTO 182 


618 


PRINT : PRINT TAB! 9) "THE H 


Rash a "hit" target and erase tfie target 


388 GOTO 392 




ISH SCORE IS ";HI 


with sound. 


390 XN = 25: XR = 25: YN = 30: YR = 


620 


PRINT : PRINT TAB( 11) "I DR 




30 




EW ";TP;" TARGETS" 


302 POKE 768,113: POKE 769,10: CALL 


392 GOTO 222 


622 


PH = INT ((HT / TP) t 100) 


770 


- 


624 


PRINT : PRINT TAB( 7) "YOU H 


304 COLOR= CB: GOSUB 162 


Main program loop. 




IT ";PHi"I OF THE TARGETS" 


306 POKE 768,113: POKE 769,10: CALL 




626 


IF HT = GOTO 632 


770 


502 L = L + CC: IF L / TT = CC THEN 


628 TA*= GS / HT;TA$ = STR$ (TA) 


308 COLOR= CF: BOSUB 162 


COLOR= CB: POKE 766,96; POKE 






310 POKE 768,113: POKE 769,10: CALL 


769,56: CALL 770: POKE 768,1 


630 


PRINT : PRINT TAB( 9 - INT 


770 


53: POKE 769,56: CALL 770: GOSUB 




( LEN (TA»); / 2) "AVERAGE PO 


312 C0LOR= CB: GOSUB 162 


162: GOTO 222 




INTS/TAR6ET=";TA$ 


314 POKE 768,144: POKE 769,56: CALL 


504 GOSUB 22 


Ltn. 

o-.u 


PRINT : PRINT "PUSH <RETURN> 


770 


506 XN = XN + X!1:YN = YN + Y« 




TO PLAY AGAIN, 'Q' TO QUIT" 




508 HH = SCRNI XN.YN): IF HW = C 




; : GET A$ 


Increase grand score (GS), add to tail, 


D OR HW = CH THEN 602 


634 


IF A$ = "Q" THEN 682 


and check keyboard. End game If the 


510 IF HH = CF THEN 302 


636 


IF LE = CB THEN GOTO 646 


screen border or tall Is struck. 


512 R = R + CC: IF R > DI THEN R = 


638 


IF LE = CC THEN GOTO 640 




CB 


640 


PRINT : GOSUB 92: PRINT "PRE 




514 COLOR= CH: PLOT XN,YN:I7.(R) = 




SS ANY KEY TO DECREASE THE D 


332 BS = GS + TS:HT = HT + CC 


on 




IFFICULTY": PRINT TAB( 4)"P 


334 VTAB 23: HTAB 12: PRINT GS 


516 H = « + CC; IF M > DI THEN fl = 




RESS ANY <RETURN> TO PLAY AG 


336 R = R + CC: IF R > DI THEN R = 


CB 




AIN": GET A$ 


CB 


518 IF n(M) = CF THEN XL = CB:Y 


642 


IF A$ < > CHR$ (13) THEN L 


338 n(R) = OH: CDLOR= CH: PLOT X 


L = CC: GOTO 526 




E = 


MjVN 


520 IF IKH) = CE THEN XL = CB:Y 


644 


GOSUB 72: GOTO 372 


340 V = TS + CC 


L = CA: GOTO 526 


646 


PRINT ; GOSUB 92: PRINT "PRE 



40 
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SS ANY KEY TO INCREASE THE D 


726 


PRINT "(1) ALL0HIN6 THE LEA 




758 


IFFICULTY": PRINT TfiBI 4l"P 




DING END OF THE LINE 


757 


PRINT : GOTO 754 


RESS <RETURN> TO PLAY AGAIN" 




TO CROSS THE BORDER OF THE 


758 


HOME : VTAB 9; GOSUB 92 


; : GET M 




SCREEN.": PRINT 


760 


PRINT TAB( 5) "PRESS ANY KEY 


648 IF A$ < > CHR$ (13) THEN L 


728 


PRINT "(2) ALL0HIN6 THE LEA 




TO PLAY THE GAME": PRINT : PRINT 


E = 1 




DING END OF THE LINE 




TABf 15) "GOOD LUCK!!" 


650 GOSUB 72: GOTO 372 




TO CROSS THE 'TAIL' THAT HI 


762 


PRINT ! GOSUB 92 






LL GROW AS THE GAME PRO 


764 


GOSUB 54 


End of game. 




GRESSEE.": PRINT 


766 


SPEED= 255: 60SUB 72: SOTO 3 




730 


PRINT "(3) REVERSING DIRECT 




72 


682 HOHE : VTAB 10: PRINT "THANK 




ION BY ISO DEGREES. YOU 






YOU FOR PLAYING": PRINT : PRINT 




HOST REVERSE DIRECTION USING 


POKES for Machine Language sound 


"TRY AGAIN SOME OTHER TIME." 
: END 




THO 90 DEGREE TURNS. 

11 


routine. 


732 


GOSUB 92: GOSUB 52 


782 


POKE 770,173: POKE 771.43: POKE 


Directions for play. 


734 


HOME : GOSUB 42 




772,192: POKE 773,136: POKE 




736 


PRINT "USE THE FOLLOHING COM 




774,208: POKE 775,05: POKE 7 


702 HOME : SPEED= 190 




MANDS TO MOVE THE LEADING E 




76,206: POKE 777,01: POKE 77 


704 VTAE 8: GOSUB 92: PRINT TAB( 




ND OF THE LINE:": PRINT 




8,03: POKE 779,240: POKE 780 


4)"- WHITE LIGHT 


738 


PRINT "PRESS 'E' TO MOVE UP" 




,09 


N I N 6 -■: PRINT 




: PRINT : PRINT "PRESS 'D' T 


784 


POKE 781,202: POKE 782,208; POKE 


706 GOSUB 92 




MOVE DOHN": PRINT : PRINT 




783,245: POKE 784,174: POKE 


708 PRINT "DO YOU WANT DIRECTION 




"PRESS '0' TO MOVE LEFT": PRINT 




785,00: POKE 786,03: POKE 78 


S !Y OR N)";: GET A$ 




: PRINT "PRESS 'F' TO MOVE R 




7,76: POKE 788,02: POKE 789, 


710 IF A» = "N" GOTO 750 




IGHT" 




03: POKE 790,96 


712 HOME : GOSUB 42 


740 


VTAB 21: GOSUB 92: GOSUB 52 


786 


GOTO 702 


714 PRINT " THE OBJECT OF '«H 


742 


HOME : GOSUB 42 






ITE LIGHTNING' IS TO SCO 


744 


PRINT " E.KPERIENCED PLAYE 


Music routine for lost game. 


RE AS MANY POINTS AS PCSSIBL 




RS MAY HISH TO INCREASE 






£ BY REACHING TARGETS THAT 




THE DIFFICULTY OF THE GAME. 






HILL APPEAR RANDOMLY ON T 




THE SAME RULES APPLY WITH 


802 


POKE 768,153: POKE 769,255: CALL 


HE SCREEN.": PRINT 




ONE ADDITION:": PRINT 




770: POKE 768,153: POKE 769, 


716 PRINT ■ YOU KILL DIRECT A 


746 


PRINT TAB( 4) "YOU MAY NOT A 




255: CALL 770: POKE 768,153: 


LINE ABOUT THE SCREEN. 




LLDH THE LEADING END OF": PRINT 




POKE 769,56: CALL 770: POKE 


EACH TIHE THE LEADING END OF 




TAB( 4) "THE LINE TO CROSS A 




768,153: POKE 769,255: CALL 


THE LINE REACHES THE TAR6 




NY OF THE ADDED": PRINT TAB( 




770: POKE 768,127: POKE 769, 


ET, YOUR SCORE HILL BE INCRE 




4) "OBSTACLES." 




255: CALL 770 


fiSED BY THE VALUE OF THE T 


748 


PRINT : GOSUB 92: GOSUB 52 


804 


POKE 768,137: POKE 769,56: CALL 


ARGET AND THE LENGTH OF THE 


750 


PRINT : PRINT 




770: POKE 768,137: POKE 769, 


LINE HILL" 


752 


GOSUB 92 




191: CALL 770: POKE 768,153: 


718 PRINT "BE INCREASED BY A COR 


754 


PRINT "DO YOU HANT TO INCREA 




POKE 769,56: CALL 770: POKE 


RESPONDING AMOUNT.": PRINT 




SE THE DIFFICULTY?": PRINT : 




768,153: POKE 769,191: CALL 


720 VTAB 21: GOSUB 92: GOSUB 52 




PRINT TAB( 16) "(Y OR N)";: 




770 


722 HOHE : GOSUB 42 




GET A» 


806 


POKE 768,162: POKE 769,56: CALL 


724 PRINT "ANY OF THE FOLLOHING 


755 


IF A$ = "N" THEN LE = 0; GOTO 




770: POKE 768,153: POKE 769, 


HILL CAUSE YOU TO LOSE THE 




758 




255: CALL 770 


SANE:": PRINT 


756 


IF A* = "Y" THEN LE = 1: GOTO 


808 


RETURN © 
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by Fred J. Condo 

Poster Maker is a large-character 
printing program for an Apple with 
Applesoft, 16K RAM, and a 
printer. 



Programs that make banners have 
been around probably as long as 
there have been computers. But the 
banners have always run along the 
paper rather than across it. Poster 
Maker makes posters with words 
that run the same way ordinary 
printing would. It allows you to in- 
put a whole phrase, which it will 
print automatically, one word 
centered on each line. If you have an 
Epson MX-80 printer, you can 
choose the size of character you 
want by specifying the number of 
banner-sized characters per line. If 
any word won't fit, the program 
puts in a hyphen (but not necessarily 
in the grammatically correct posi- 
tion). If you just remember that the 
program starts a new line wherever 
you type a space, you can insert 
your own hyphen in a long word 
where it should be divided. To top it 



all off, you can even specify whether 
each large character should be made 
up of the small characters that it 
represents, or of another character 
that you want to use. 

The characters provided in the 
program are all the upper-case let- 
ters plus most of the punctuation 
available from the Apple keyboard. 
The character definitions are 
located in the DATA statements 
starting in line 10000. If you want to 
add or modify character definitions, 
here is the data organization: First, 
the character being defined. If in 
doubt, put this character in quota- 
tion marks. Next, 13 line defini- 
tions. There must be exactly 13, 
because the characters are made up 
of a 12 by 13 matrix. Each line 
definition is READ by the program 
(line 110) in number pairs, so each 
line definition must contain an even 
number of numeric values. Each of 
the line definitions must end with a 
pair of -Is, since this is the end-of- 
line flag. (A blank line is the pair of 
-Is alone.) 

Each line definition consists of up 



to three pairs of numbers (plus the 
terminal -Is). The first number of a 
pair is always a number of spaces to 
be printed; the second is a number 
of dots. Together these spaces and 
dots specify the printing pattern for 
a particular line of that character. 
The total number of dots plus 
spaces in each Hne must be no more 
than 12. The program itself does not 
check for faulty character defini- 
tions, so errors will show up either 
as SYNTAX ERRORs in the DATA 
lines or as scrambled lettering on the 
posters. 

If you don't have an Epson 
printer, you will need to make a few 
small modifications to the program. 
If your printer can handle only one 
printing density (80 characters per 
line), then change line 210 to 
WIDE = 6 and make the changes 
specified in the program documen- 
tation at lines 400-430. If your 
printer can handle alternate den- 
sities, then you'll need to make ap- 
propriate modifications of the 
character codes printed in those 
lines. 
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Variables 


I: Item number during DATA 


of the next line is suppressed. 




READing; character number in 


P$: String input by user to be 


A; Loop index in sorting routine. 


Pl$ during printing; also a general 


printed. 


A$: Used by display subroutine to 


loop index. 


Pl$: Same as P$, but with 


display centered lines on the 


II: Item number during printing. 


undefined characters removed. 


monitor screen. Also used for Y/N 


J, KK: Loop indices. 


This is the string which is cut up 


replay at the end of printing. 


KK$: Used in the input-simulation 


and put piece by piece into L$. 


B: Loop index in sorting routine. 


subroutine to accept each character 


QQ: Number of characters 


C: The number of dots (characters) 


as it is typed at the keyboard. 


defined. Used to sort and display 


in a line definition. 


L: Saves LEN(L$). 


LL$(x). 


CFLAG: If 1, user has specified a 


L$: Contains each word of the 


R$: String returned by the input- 


character to make up the large 


input string as it is cut apart. (A 


simulation routine. 


ones. 


word consists of the characters 


S: Number of spaces in a Hne 


CHS: Contains a character 


between spaces.) 


definition. 


specified by the user to make up 


L$(x): Contains the characters 


S$: Contains the number of spaces 


the larger characters. If null, 


defined in the DATA. X is 


needed to center L$ on a line. 


characters are made up of their 


analogous to the x subscript in the 


T$: Temporary storage variable 


small analogs. 


DESC% array. 


used to swap strings in array LL$ 


DESC%(x,y,z): Mnemonic for 


LL$(x): Same as L$(x), but sorted 


during sorting. 


"DESCription;" contains the 


into ASCII order. Used to present 


VT: Used by display subroutine. 


character definitions. X subscript 


the available characters. 


Specifies VTAB number. 


is the character; y is the line 


LTR: Number of characters 


WIDE: Number of large characters 


number; and z is the item (number 


defined, plus 1. 


per line. 


of spaces or dots). 


M$: Used to save the results of 


WW: Used to get double-width 


DISPLAY: Used by display 


MID$ function calls. 


characters from the MX-80. If the 


routine: 1 = normal, 2 = inverse, 


OL$: Mnemonic for "Old L$." 


modifications to the program for 


and 3 = flash. 


Contains the previous word 


non-MX-80 use have been made. 


HYFLAG: If 1, a word was ^ 


printed, in order to determine if a 


this is always zero. 


hyphenated. 


hyphen was used. If so, centering 


X: Loop index. 
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$ APPLESOFT BASIC $ 
« 'POSTER MAKER' $ 
$ AUTHOR: FRED J. CQNDO $ 
$ (C) 1982 SOFTSIDE % 




HH99H9^^^^I - t^^^^^^^^H 




lajMaiaiaiMli^^^M ^^^^H 






■ 


^Hi,: I 










^^^^^^1 ''f ' V" .^1 






laSlHSa^^^^^^^^^H i'' i^^^^l 


Set normal text mode and display 






^^^^^^^^^H 






laajMaiMH^^^^^^^^^^^^^^^^B 




^^^^^Kn^mz^^i 


title header. 

10 NDTRACE : TEH : HOME : SPEED^ 






^Sssmii 






n^^Hi^^HsiifililM * ' '' 1 


255: NORMAL 
20 VT - 1: DISPLAY - 2:A$ = " 






^HHH^->J 






uuoluS^lttydSwIldMwBJ^^^yrilillil 




9^^^^^^^RQ^m^^n|^^^^^^^^^^H 


POSTER MAKER ": GOSUB 




IBHiiiill^^^^^l 




750:VT ^ 3:DISPLAY = 1:A$ = 
"BY F.J. CQNDO": GOSUB 750:V 




B^^^HJHjffli^^^^^^B 






jHMaMjaajiajBHflal^^^^^^^^^M 




6ww)iwM^MM^^^^^^^B 


T = 4:A$ = "JULY 1981": GOSUB 
750 
30 POKE 34,5 

READ the character data into the ■ 












B 


arrays. 








190 NEXT E,A 


290 Pl$ = " 


40 VT - 12:At = "READING DATA":DI 




300 FOR I = 1 TO LEN (?*):« = 


SPLAY = 3: GOSUB 750 


Input maximum line width. (For 


MID* (PJ,I,I) 


50 DIM DESCi:(53,13,S),L»(53),LL$ 


standard 80-column printers, use six 


310 FOR J = 1 TO LTR - 1 


(53) 


characters per line.) 


320 IF m < > L$(J) THEN NEXT 


iO LTR = 1 




J 


70 READ L*(LTR):LLt(LTR) ^ L$fLT 


200 HOME : VTAB 12 


330 IF J < LTR THEN PU - Pl$ + 


R): IF Lt(LTR) = "UV GOTO 


210 INPUT 'HOH MANY LARGE CHARAC 


Mt 


IfcO 


TERS WIDE DO YOU WANT EACH 


340 NEXT I 


SO VT = 13:DISPLAY = 1:A$ = "<" + 


LINE TO BE (MAX. 10)7 ";WID 


350 IF Pl$ = ■" THEN HOME : VTAB 


L$(LTR) + ■>": GOSUB 750 


E:MIDE = INT («IDE): IF HID 


12: PRINT "NO DATA AVAILABLE 


90 L = 1 


E < 1 OR HIDE ) 10 GOTO 200 


FOR YOUR INPUT STRING PLEAS 


100 I = 1 


220 At = "": FOR I M TO 21:A» = 


E TRY AGAIN, USING ONLY THE 


110 READ S.C 


A$ + " ": NEXT :VT = 2:DISPL 


CHARAC-TERS LISTED ABOVE": FOR 


120 DESCy.(LTR,L,I; = SiDESCXdTR, 


AY - 1: GOSUB 750 


KK = I TO 1800: NEXT KK: GOTO 


L,I + 1) = C 


230 VT = 2;DISFLAY = 2:A$ = "LINE 


200 


130 IF S < > - 1 THEN I - I + 


S WILL BE " + STR$ (WIDE) + 




2: GOTO 110 
140 L = L + 1: IF L < = 13 GOTO 
100 


" LONG": GOSUB 750 
Display available characters and 


Input the character to be used In 
forming the large poster characters. 


150 LTR - LTR + 1: GOTO 70 


input the words to be printed. 


360 CFLAG = 0: INPUT "CHARACTER T 


Sort the data in LL$(B) in ascending 


240 HOME : PRINT "USE ONLY": FOR 


PRINT OR (RETURN) TO HATCH 


order for later display of available 


A = 1 TO QQ: PRINT LL«(A);: NEXT 


PRINTING CHARACTER TO CHARA 


characters. 


fl 


CTER BEING REPRESENTED: "; 




250 POKE 34,8 


CH«:CH$ = LEFT* (CH$,1) 


160 HOME 


260 HOME : VTAB 12: PRINT "PHRAS 


370 IF CH$ < > "° THEN CFLAG = 


170 VT = 12:DISPL = 3:A» = "SORTI 


E: »;: GOSUB 700: P* = R$ 


1 


NG DATA": GOSUB 750 


270 IF P$ = "" THEN TEH : HOME 


380 Pl$ = Pl$ + ° • 


IBO QQ = LTR - 1: FOR A = 1 TO QQ 


: END 


390 HOME : VTAB 12: PRINT PI* 


- 1: FOR B = 1 TO QQ - A: IF 
LL«(B) > LLtfB + 1) THEN T5 = 


Remove characters from the input 
string which are not defined In the 


Lines 400-430 are specifically for the 


LL$(B):LL$(B) = LL$(B + 1):L 


DATA statements. P1$ will then 


Epson MX-80. For a standard 


L»(B + 11 = T» 


contain the phrase to be printed. 


80-coiumn printer, delete 410-430 
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and delete everything In line 400 
following "PR#1". 


610 11 = 1:SC0UNT = 

620 S = DESCI(R,L1NE,II):C = DESC 


10000 DATA A, 4, 4, -1,-1, 3, 6, -1,-1 
,2,8.-1,-1,1,10.-1,-1,0,12,- 




:i(R,LINE,II + I) 


1,-1,0,4,4,4,-1,-1,0.4,4,4,- 


400 FRI l! PRINT CHRI (27); CHRJ 
(48);: REM C0I1PRESSED LINE 


630 IF NOT CFLA6 THEN CHI = Lt( 

R) 
640 IF S < > - 1 THEN PRINT CHR* 


1,-1,0,12,-1,-1,0,12,-1,-1,0 
,12,-1,-1,0,4,4,4,-1,-1,0,4, 
4,4,-1,-1,0,4,4,4,-1,-1 


SPACING 
410 IF WIDE > 6 THEN PRINT CHR$ 

(15): REM 132 CHARS/LINE 
420 m = 0; IF HIDE < 6 AND WIDE ) 

3 THEN PRINT CHR$ (15):WW = 

14; REH 66 CHARS/LINE 
430 IF WIDE < = 3 THEN WW = 14 


(WW); SPC( S);; SCOUNT = SCOU 
NT + S: FOR X = 1 TO C: PRINT 
CH$;: NEXT X: SCOUNT = SCOUNT 
+ C:II = II + 2: GOTO 620 
650 IF SCOUNT < 13 THEN FOR X ^ 
SCOUNT TO 12: PRINT " ";: NEXT 
X 


10001 DATA E,0, 12,-1,-1,0, 12,-1, 
-1,0,12,-1,-1,0,4,-1.-1,0,4, 
-1.-1.0,10,-1,-1,0,10,-1,-1, 
0,10,-1,-1,0,4,-1,-1,0,4.-1, 
-1,0,12,-1,-1.0,12,-1,-1,0,1 
2,-1,-1 

10002 DATA " ",-1,-1,-1,-1,-1,-1 




660 NEXT (3: PRINT : NEXT LINE 


,-1,-1,-1,-1,-1,-1,-1,-1,-1, 


Cut P1$ into words (groups of 
characters separated by spaces). 


670 PRINT : PRINT 
680 GOTO 460 


-1,-1,-1,-1,-1,-1,-1,-1,-1,- 

1,-1 
10003 DATA 1,2,8,-1,-1,2,8,-1,-1 


440 PRINT 
450 I = 1 


Subroutine to allow Inputting of all 
characters, including commas, 
quotation marks, colons, etc. 


.2,8,-1,-1,4.4,-1,-1,4.4,-1, 
-1,4,4,-1,-1,4,4,-1,-1,4,4,- 
1.-1,4,4,-1,-1,4,4,-1,-1,2,8 


m LI - "'■ 




,-1,-1,2,8,-1,-1,2,8,-1.-1 


470 IF I > LEN iPlI) THEN PRt 


700 R$ = "■: PRINT "->"; 


10004 DATA 0.2,8,-1,-1.1,10.-1.- 


0: HOME : VTAB 12: GOTO 820 


710 GET KKI: PRINT KKI;: IF KKI = 


1,0,12.-1.-1,0,4,4,4,-1,-1,0 


480 m = MID* {P1$,I,1) 


CHRI (13) THEN RETURN 


,4.4,4.-1.-1,0.4.4,4.-1,-1.0 


m IF m { ^ " " THEN L$ = L$ + 


720 IF KKI = CHR* (8) AND LEN 


,4,4,4,-1.-1,0,4,4.4.-1,-1,0 


!1I:I = I + 1: GOTO 470 


(Rl) > 1 THEN Rl = LEFTI (R 


.4.4,4.-1,-1,0,4,4,4.-1,-1.0 


500 1=1+1 


1, LEN (R$) - 1): GOTO 710 


.12,-1.-1,1.10,-1,-1,2.8.-1, 




730 IF KKI = CHRI (8) AND LEN 


_1 

1 


Center each word, unless the last 
word was hyphenated. (To center 
the trailing part of hyphenated 
words as well, delete line 520.) 


(Rl) < = 1 THEN Rl = "": GOTO 
710 
740 Rl = Rl + KKI: GOTO 710 


10005 DATA U, 0,4, 4, 4, -1,-1, 0,4, 4 
,4,-1,-1,0,4,4,4,-1,-1,0,4,4 
,4.-1,-1.0.4.4.4,-1,-1,0.4,4 
,4,-1,-1,0,4,4,4,-1,-1,0,4,4 


510 L = LEN {L*);S$ = "" 

520 IF RIGHT$ (0L$,1) = "-" THEN 

HYFLAG = 1 
530 IF L > WIDE THEN I - I - (L - 


Subroutine to display a string of 
characters centered on line VT. The 
value of DISPLAY determines If the 
string will be printed as normal, 
inverse, or flashing text. 


,4,-1,-1,0.4.4,4,-1,-1,0,4,4 
,4,-1,-1,0,12,-1,-1,1,10,-1, 
-1,2,0,-1,-1 
10006 DATA "-",-1,-1,-1,-1,-1,-1 
,-1,-1,-1,-1,-1,-1,1,10,-1,- 


WIDE) - 2;L = WID£:L1 = LEFTI 




1,1,10,-1,-1,-1,-1,-1,-1,-1, 


(LI, WIDE - 1) + "-" 


750 ON DISPLAY GOTO 770,780,790 


-1,-1,-1,-1,-1 


540 IF L < WIDE - 1 AND NOT HYP 


770 NORMAL : SOTO 300 


10007 DATA C. 2, 10, -1,-1, 1,11,-1, 


LAG THEN FOR X = 1 TO (WIDE 


730 INVERSE : GOTO 800 


-1,0,12,-1,-1,0,4,-1,-1,0,4, 


- L) / 2:SI = SI + " "; NEXT 


7''0 FLASH 


-1,-1,0,4,-1,-1,0,4,-1,-1,0, 


X 


800 VTAE VT: HTAB 20 - LEN (AD 


4,-1,-1,0,4,-1,-1,0,4,-1,-1. 


550 OLI = LI: HYFLAG = 


/ 2: PRINT A$: NORMAL : RETURN 


0,12,-1.-1,1,11,-1.-1.2.10,- 


560 LI = SI + LI 

Print the current word and then go 
on to the next one. 


Done with this poster; do another 
one? 

820 INPUT "MORE? "iAI: IF LEFTI 


1,-1 
10008 DATA R, 0,10, -1,-1, 0,11,-1, 
-1,0,12,-1,-1,0.4,4,4,-1,-1, 
0,4,4,4,-1,-1,0.12,-1,-1,0,1 




(A$,l) = "N" THEN TEXT : HOME 


1,-1,-1,0,10,-1,-1,0,8,-1,-1 


570 FOR LINE = 1 TO 13 


: END 


,0,4,1,4,-1,-1,0,4,2,4,-1,-1 


580 FOR Q = 1 TO LEN (L$l:M$ = 


830 PRI 1: PRINT CHRI (18) CHRI 


,0,4,3,4,-1,-1,0,4,4,4,-1,-1 


MIDI (L$,Q,D 


(20): PR« 0: GOTO 200 




590 FOR R = 1 TO LTR - 1 




10009 DATA 5,2,9,-1,-1,1,11,-1,- 


600 IF LKfi.) < > Ml THEN NEXT 
R 


DATA for characters. (See article for 
data format.) 


1,0,12,-1,-1,0,4,-1,-1,0,4,- 
1,-1,0,10,-1,-1,1,10,-1,-1,2 
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,10,-1,-1-8,4,-1,-1.8,4,-1,- 
1,0,12,-1,-1.0,11,-1.-1,1,9, 
-1,-1 

10010 DATA N,0, 4, 4, 4, -1,-1, 0,5, 3 
,4,-1,-1,0,6,2,4.-1.-1,0,7,1 
,4,-1,-1,0,7,1,4,-1,-1.0.4,1 
,7,-1,-1,0,4,1,7,-1,-1,0,4,2 
,i, -1,-1, 0,4, 3, 5, -1,-1, 0,4, 4 
,4,-1,-1,0,4,4,4,-1.-1.0.4.4 
,4,-1,-1,0,4,4,4,-1,-1 

10011 DATA 8,0,10,-1.-1.0,11,-1, 
-1,0,12,-1,-1,0,4,4,4.-1,-!, 
0,4,4,4,-1,-1,0,12,-1,-1.0,1 
1,-1,-1,0,11,-1,-1,0,4,4,4,- 
1,-1,0,4,4,4,-1,-1,0,12,-1,- 
1,0,11,-1,-1,0,10,-1,-1 

10012 DATA 0,0,10,-1,-1,0,11,-1, 
-1,0,12,-1,-1,0,4,4,4,-1.-1. 
0,4,4,4,-1,-1,0,4,4,4,-1,-1, 
0,4,4,4,-1,-1,0,4,4,4,-1,-1, 
0,4,4,4,-1,-1,0,4,4,4,-1,-1, 
0,12,-1,-1.0.11.-1,-1,0,10,- 

Irl 

10013 DATA F,0, 12,-1,-1,0, 12,-1, 
-1,0,12,-1,-1,0,4,-1,-1,0.4, 
-1,-1,0,8,-1,-1,0,8,-1,-1,0, 
8,-1,-1,0,4,-1,-1,0,4,-1,-1, 
0,4,-1,-1,0,4,-1,-1,0,4,-1,- 
1 

10014 DATA H,0, 4, 4, 4, -1,-1. 0,4, 4 
,4,-1,-1,0,4,4,4,-1,-1,0,4,4 
,4,-1,-1,0,4,4,4,-1,-1,0,12, 
-1,-1,0,12,-1,-1,0,12,-1,-1, 
0,4,4,4,-1,-1,0,4,4,4,-1,-1, 
0,4,4,4.-1,-1,0,4,4,4,-1,-1, 
0,4,4,4,-1,-1 

10015 DATA J, 8, 4, -1,-1, 8, 4,-1. -I 
,8,4,-1,-1,8,4,-1,-1,8,4.-1, 
-1,8,4,-1,-1,8,4,-1,-1,8,4,- 
1,-1,0,4,4,4,-1,-1,0,4,4,4,- 
1,-1,0,12,-1.-1,1,10,-1,-1,2 
,8,-1,-1 
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10016 DATA T,0, 12.-1,-1,0, 12.-1. 
-1,0,12,-1,-1,4,4,-1,-1,4,4, 
-1,-1,4,4.-1.-1.4,4.-1.-1.4. 
4,-1,-1,4,4,-1,-1,4,4,-1,-1, 
4,4,-1,-1,4,4,-1.-1.4.4,-1.- 
1 

10017 DATA Y, 0,4, 4, 4, -1,-1, 0.4, 4 
,4,-1,-1,0,4.4,4,-1,-1,0,4,4 
,4,-1,-1,0,4,4,4,-1,-1,1,10, 
-1,-1,2,8,-1,-1,4,4,-1,-1,4, 
4,-1,-1,4,4,-1,-1,4,4,-1,-1, 
4,4,-1,-1,4,4,-1,-1 

10018 DATA V. 1,3,4,3.-1,-1, 1.3,4 
,3,-1,-1,1,3,4,3,-1,-1,1,3,4 
,3,-1,-1,1,3,4,3,-1,-1,1,3,4 
,j,-i,-l,l,j,4,i,-l,-I,l,3,4 
,3,-1,-1,1,3,4,3,-1,-1,2.3,2 
,3,-1,-1,3,2,2.2.-1,-1,4,4,- 
1,-1,5,2,-1.-1 

1001? DATA «, 0,3, 6, 3, -1,-1, 0,3, 6 
,3,-1,-1,0,3,6,3,-1,-1,0,3,6 
,3,-1,-1,0,3,6,3,-1,-1,0,3,2 
,2,2,3,-1,-1,0.3,1.4.1.3,-1, 
-1,0,3,1,4,1,3,-1,-1,0,12,-1 
,-1,0,5,2,5,-1,-1,0,5,2,5,-1 
,-1,0,4,4,4,-1,-1,0,3,6.3,-1 
,-1 

10020 DATA 1,0,4,-1,-1,0,4,-1,-1 
,0,4,-1,-1,0,4,-1,-1,0,4,-1, 
-1,0,4,-1,-1,0,4,-1,-1,0,4,- 
1,-1,0,4,-1,-1,0,4,-1,-1,0,1 
2,-1.-1,0.12,-1.-1,0.12.-1,- 
1 

10021 DATA 6,2,10,-1,-1,1,11,-1, 
-1,0,12,-1,-1,0,4.-1,-1,0,4, 
-1,-1,0,4,-1,-1,0,4,3,5,-1,- 
1,0,4,3,5,-1,-1,0,4,5.3,-1,- 
1,0,4,5,3,-1,-1,0,12,-1,-1,1 
,10,-1,-1,2,8,-1,-1 

10022 DATA Z,0, 12,-1,-1,0,12,-1, 
-1,0,12,-1,-1,8,4,-1.-1,7,4. 
-1,-1,6,4,-1,-1,5,4,-1,-1,4, 
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4,-1.-1,3,4,-1,-1,2,4,-1,-1, 
1,11,-1,-1,0,12,-1,-1,0,12,- 

1,-1 

10023 DATA M, 0,3, 6, 3, -1,-1, 0,4, 4 

,4,-1,-1,0,5,2,5,-1,-1,0,5,2 
,5,-1,-1,0,12,-1,-1,0,3,1,4, 
1,3,-1,-1,0,3,1,4,1,3,-1,-1, 
0,3,2,2,2,3,-1,-1,0,3,6,3,-1 
,-1,0,3,6,3,-1,-1,0,3.6,3,-1 
,-1,0,3,6,3,-1,-1,0,3.6,3,-1 
,-1 

10024 DATA 3,1,8,-1,-1,0,10,-1,- 
1,0,10.-1,-1,0,3,4,3,-1.-1,0 
,3,4,3,-1,-1,0,3,4,3,-1,-1,0 
,3,4,3,-1.-1,0,3,4,3.-1.-1,0 
.3,2,5,-1,-1,0,3,3,4,-1,-1,0 
,11,-1,-1,1,11,-1.-1.2,6,2.2 
ri,-l 

10025 DATA P, 0,10, -I, -1,0, 11,-1, 
-1,0,12,-1.-1,0,4,4.4,-1,-1, 
0,4,4,4,-1,-1,0,12,-1,-1,0,1 
1,-1,-1,0,10,-1,-1,0,4,-1,-1 
,0,4,-1,-1,0,4,-1,-1,0,4.-1. 
-1,0,4,-1,-1 

10026 DATA l(. 0,4, 4, 4, -1,-1, 0.4, 3 
,5,-1,-1,0,4,2,5,-1,-1,0,4,1 
,4,-1,-1,0,8,-1,-1,0,6,-1.-1 
,0,7,-1,-1,0,8,-1,-1,0,4.1,4 
,-1,-1,0,4,2,4,-1,-1,0,4,3,4 
,-1,-1,0,4,4,4.-1,-1,0,4,5,3 

,-1,-1 

10027 DATA X, 0,4, 4, 4, -1,-1, 0,4, 4 
,4,-1,-1,0,4,4,4,-1,-1,1,3,4 

1,-1,4,4,-1,-1,4,4,-1,-1,3,6 
,-1,-1,2,3,2,3,-1,-1,0,4,4,4 
,-1,-1,0,4,4,4,-1,-1,0,4,4,4 
,-1,-1 

10028 DATA ',4,5,-1,-1,4,5,-1,-1 
,4,5,-1,-1,4,5,-1,-1,3,5,-1, 
-1,2,5,-1,-1,-1,-1,-1,-1,-1, 
-1,-1,-1,-1,-1,-1,-1,-1,-1 



APPil 




10029 DATA ',3,5,-1,-1,3,5,-1,-1 

J J J J , "■ i J ~ 1 ( J , J J " 1 , ~ 1 I, J J J I ~ 1 J 

1,-1,4,3,-1,-1,-1,-1,3,5.-1, 
-1,3,5,-1,-1,3,5,-1,-1 

10030 DATA ?!, 5, 3, -1,-1, 5, 3,-1.-1 
,2,10,-1,-1,1,11,-1,-1,0,5,- 
1,-1,1,9,-1,-1,3,7,-1,-1,1,9 
,-1,-1,0,5,-1.-1,1.11.-1,-1, 
2,10,-1,-1,5,3,-1,-1,5,3,-1, 
-1 

10031 DATA .,-1,-1,-1,-1,-1,-1,- 
1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
,-1,-1,-1,-1,0,4,-1,-1,0,4,- 
1,-1,0,4,-1,-1 

10032 DATA ", °, -1,-1, -1,-1, -1,-1 
,-1,-1,-1,-1,-1,-1,-1,-1,-1, 
-1,-1,-1,-1,-1,2.3,-1,-1,1,3 
,-1,-1,0,3,-1,-1 

10033 DATA +,-1,-1,-1,-1,-1,-1,4 
,3,-1,-1,4,3,-1,-1,4,3,-1,-1 
,0,11,-1,-1,0,11,-1,-1,4,3,- 
1,-1,4,3,-1,-1,4,3,-1,-1,-1, 
-1,-1,-1 

10034 DATA =,-1,-1,-1,-1,-1,-1,- 
1,-1,0,12,-1,-1,0,12,-1.-1,- 
1,-1,0,12,-1,-1,0,12,-1,-1,- 
1,-1,-1,-1,-1,-1,-1,-1 

10035 DATA ;, -1,-1, -1,-1, -1,-1, 2 
,4,-1,-1,2,4,-1,-1,2,4,-1,-1 
,-1,-1,-1,-1.-1,-1,2,4,-1,-1 
,2,4,-1,-1,1,4,-1,-1,0,4,-1, 
-1 

10034 DATA /, 10, 2, -1,-1, 10, 2,-1, 
-1,9,3,-1,-1,8,3,-1,-1,7.3,- 
1,-1,6,3,-1,-1,5,3,-1,-1,4,3 
,-1,-1,3,3,-1,-1,2,3,-1.-1,1 
,3,-1,-1,0,3,-1,-1,0,2,-1,-1 

10037 DATA X, 0,4, 6, 2, -1,-1, 0,4, i 
,2,-1,-1,0,4,5,3,-1,-1,0,4,4 
,3,-1,-1,7,3,-1,-1,6,3,-1,-1 
,5,3,-1,-1,4,3,-1,-1,3,3,-1, 



" 1 , iL , j , J , 4 , - 1 , - 1 , 1 . ;■ , 4 , 4 , - 1 , 
-1,0,3,5,4,-1,-1,0,2,6,4,-1, 

~ 1 

10038 DATA (,5,2,-1,-1,4,2,-1,-1 

,j,i,-l,-l,i,i,-l,-l,l,i,-l, 

-1,0,3,-1,-1,0,2,-1,-1,0,3,- 
li-l, i,i,-l,-l,i,i,-l,-',-'ii 
,-1,-1,4,2,-1,-1,5,2,-1,-1 

10039 DATA ), 5, 2, -1,-1, 6, 2, -1,-1 
I ■' I i , - 1 ( - 1 1 8 , i , - 1 , - 1 1 9 , i , - 1 1 
-1,9,3.-1,-1,10,2,-1,-1,9,3, 
-1,-1,9,2,-1,-1,8,2,-1,-1,/, 
2,-1.-1,6,2,-1,-1,5,2,-1,-1 

10040 DATA ",•", -1,-1, -1,-1, 2,4, - 
1,-1,2,4,-1,-1,2,4,-1,-1,-1, 
-1,-1,-1,-1,-1,2,4,-1,-1,2,4 
,-1,-1,2,4.-1,-1.-1,-1,-1,-1 

10041 DATA 1,4,4,-1,-1,4,4,-1,-1 
,3,5,-1,-1,2,6,-1,-1,5,3,-1, 

1,-1,5,3,-1,-1,5,3,-1,-1,3,7 
,-1,-1,3,7,-1,-1,3,7,-1,-1 

10042 DATA 2,3,6,-1,-1,2,8,-1,-1 
,1,3,3,4,-1,-1,6,3,-1,-1,8,3 
,-1,-1,7,3,-1,-1,6,3,-1,-1,5 
,i.',-l,-l,4,3,-l,-l,o,3,-l,-i 
,2.10.-1,-1,1.11.-1,-1,1,11. 
-1,-1 

10043 DATA 0,2,8,-1,-1,1,10,-1,- 
1,0,12,-1,-1,0,4,3,5,-1,-1,0 
,4,2,6.-1,-1,0,4,2,6.-1,-1,0 
,4,1,2,1,4,-1,-1,0,4,1,2,1,4 
,-1,-1,0,6,2,4.-1,-1,0,5,3,4 
,-1,-1,0,12,-1,-1,1,10,-1,-1 

, i,8,-l ,-1 

10044 DATA 4,7,3,-1,-1,6,4,-1,-1 
,5,5,-1,-1,4,6,-1,-1.3,3,1,3 
,-1,-1,2,3,2,3,-1,-1,1,3,3,3 
,-1,-1,0,12,-1,-1,0,12,-1,-1 
,0,12,-1,-1,7,3.-1,-1,7,3,-1 
,-1,7,3,-1,-1 

10045 DATA 8,2,8,-1,-1,1,10,-1,- 
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1,0,12,-1,-1,0,3,6,3,-1,-1,0 
,3,6,3,-1,-1,1,10,-1,-1,2,8, 
-1,-1,1,2,6,2,-1,-1,0,3,6,3, 
-1,-1.0,3,6,3,-1,-1,0,12.-1, 
-1,1,10,-1,-1,2,8,-1,-1 

10046 DATA 3,2,8,-1,-1,1,10,-1,- 
1,0,12,-1,-1,0,3,6,3,-1,-1,9 
,3,-1,-1,4,7,-1,-1,4,6,-1,-1 
,8,3,-1,-1.9,3,-1,-1,0,3,6,3 
,-1.-1,0,12,-1,-1,1,10,-1,-1 

"J p -1 -1 

10047 DATA 5,0,11,-1,-1,0,11,-1, 
-1,0,11,-1,-1,0,4,-1,-1,0,4, 
-1,-1,0,10,-1,-1,0,11,-1,-1, 
0,12,-1,-1,8,4,-1,-1,0,4,4,4 
,-1,-1,0,4,4,4,-1,-1,1,10,-1 
, - 1 , i , 8 , - 1 , - 1 

10040 DATA 6,2,8,-1,-1,1,10,-1,- 
1,0,12,-1,-1,0,4,4,4,-1,-1,0 
,4,-1,-1,0,10,-1,-1,0,11,-1, 
-1,0,12,-1,-1,0,4,4,4,-1,-1. 
0,4,4,4,-1,-1,0,12,-1,-1,1,1 
0,-1,-1,2,8,-1,-1 

10049 DATA 9,2,8,-1,-1,1,10,-1,- 
1,0,12,-1,-1,0,4,4,4,-1,-1,0 
,4,4,4,-1,-1,0,12,-1,-1,1,11 
,-1,-1,2,10,-1.-1,8,4,-1,-1, 
0,4,4,4.-1,-1,0,12,-1.-1,1,1 
0,-1,-1,2,8,-1,-1 

10050 DATA 7,0,12,-1,-1,0,12,-1, 
-1,0,12,-1,-1,8,4,-1,-1,7,4, 
-1,-1,6,4,-1,-1,5,4,-1,-1,4, 
4,-1,-1,3,4,-1.-1,3,4.-1,-1, 
3,4,-1,-1,3,4,-1,-1,3,4,-1,- 
1 

10051 DATA ?, 2, 8, -1,-1, 1,10,-1, - 
1,0,4,4,4,-1,-1,0,4,4,4,-1,- 
1,8,4,-1,-1,4,7,-1,-1,4,6,-1 
,-1,4,4,-1,-1,4,4,-1,-1,-1,- 
1,4,4,-1,-1,4,4,-1,-1,4,4,-1 

rl 
19999 DATA Uf. © 
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Three Apple Text Editors 



A comparative review by Jon Voskuil 



Apple Writer II 

from Apple Computer, Inc. Sug- 
gested retail price: $150 

Superscribe II 

from On-Line Systems. Suggested 
retail price: $130 

SuperText II 

from MUSE. Suggested retail price: 
S150 

You may be considering buying 
one of the three text editor pro- 
grams listed (in alphabetical order) 
above. They're not the only ones 
available for the Apple by any 
means, and the choice of these par- 
ticular three should not reflect in 
any way upon the many others not 
reviewed. 

I feel it's only fair to tell you at 
the outset that I am much better 
acquainted with one of these soft- 
ware packages than with the other 
two. For over a year I have been 
working with SuperText II (because 
it happened to be the only word pro- 
cessor for the Apple that SoftSide 
had lying around when I came), and 
therefore know its capabilities pret- 
ty thoroughly. Apple Writer II and 
Superscribe II have been in my 
possession only a few weeks. While 
I've been using them as much as 
possible to get a feel for them, there 
are many features that I simply 
haven't had the time to use. On the 
balancing side, though, it's the com- 
mon, ordinary, everyday features of 
any given word processor that give it 
its "feel"; and the special features, 
which are not likely to be used as 
much, don't really affect that feel. 

The common, ordinary, everyday 
business of a word processor is to 
make it easy to write and edit text. 
All three of these packages do an 
admirable job of that. They share a 
number of more-or-less standard 
writing and editing features which 
will woo you away from your elec- 
tric typewriter forever. With any 
one of these you can: 

Type any text into your com- 
puter's memory (in both upper and 



lower case, even if your computer 
won't actually display lower-case 
letters), and transfer that text back 
and forth between the computer and 
a disk at will. All of them can take 
advantage of a simple modification 
which will allow you to use the shift 
key in the normal way to capitalize 
letters. If you have not made this 
no-cost modification, then 
capitalization is accomplished by 
pressing the ESC key before typing 
a letter to be capitalized. 
Forget about carriage returns 
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when typing normal text, except at 
the end of paragraphs. If a word 
won't fit on a line, it will 
automatically be moved down to the 
next line as you type. 

Correct typing mistakes as you 
type, simply by backspacing and 
retyping. 

Move the writing cursor to any 
position in your text, and delete, in- 
sert, or change any characters you 
wish. 

SoftSide 



Move a block of text from one 
part of your document to another, 
without having to retype it. 

Find each occurrence of any 
character or string of characters 
you're looking for in your text and, 
if desired, automatically replace 
those characters with other 
characters. 

Print the text in memory on paper 
using a printer, in almost any con- 
ceivable format. Line spacing, 
justification, centering, margins, 
tabs, and page numbering are some 
of the parameters that can be 
specified. 

The differences among these three 
word processors are to be found in 
two areas. They differ, first, in the 
approach they take to performing 
the basic editing functions. These 
differences are important, because 
they affect the way the program 
feels as you are using it. Are the 
keystrokes necessary to move the 
cursor around the screen and per- 
form other editing functions 
"natural" ones? Or, at least, do 
they begin to feel natural after a bit 
of practice? This can be a rather 
subjective judgment, of course. Sec- 
ond, the programs differ in the 
features they add to the basic editing 
package. These might very well be 
the deciding factor for you in choos- 
ing one over the others. How much 
flexibility do you need? What kind 
of tradeoff are you willing to make 
between simplicity of use and ver- 
satility of application? 

Apple Writer II 

Apple Writer II comes with two 
identical 16-sector disks, a 106-page 
spiral-bound manual of the same 
dimensions as other Apple manuals, 
and a tear-out reference card with 
command summaries for editing 
and printing. The documentation is 
very well written and seems virtu- 
ally error-free, typical of Apple 
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manuals in general. Someone who 
has never used a word processor 
before should have no trouble get- 
ting started with this friendly 
manual. 

Apple Writer II is compatible 
with M & R Enterprise's Sup'R'Ter- 
minal 80-coIumn board (and 
possibly others). Upon booting the 
program, this board will 
automatically be used if installed. 
Otherwise you are asked if you have 
a lower-case adapter installed. (If 
you don't, upper-case letters will be 
indicated by inverse characters, and 
lower-case by normal characters.) 
You are then shown a title page with 
a summary of frequently-used com- 
mands. Pressing RETURN clears 
the screen and sets you up to start 
typing in text. A "Data Line" at 
the top of the screen (which can be 
switched off if desired) keeps you 
informed about the number of 
characters in your text, the memory 
remaining, and other information. 

If you are at all familiar with the 
built-in screen editing features of 
your Apple, you will feel somewhat 
at home from the start with the 
editing commands in Apple Writer 
II. Pressing the ESC key (twice, if 
you haven't done the shift-key 
modification) allows you to move 
the cursor in any direction through 
the existing text with the usual I, J, 
K, and M keys. Four similar keys 
under left-hand control (E, S, D, 
and X) move up or down 12 lines at 
a keystroke, or right or left a full 
word at a time. 

One rather disconcerting feature 
of this mode is the manner in which 
the cursor moves through the text. 
Apple Writer's cursor never actually 
occupies the same location as a 
character in the text. When you're 
typing normally, of course, it's 
always just to the right of the 
characters you're entering. But 
when you move it through text 
already entered, it squeezes itself 
between two existing characters. 
Moving left and right across a line, 
then, gives an interesting ripple ef- 
fect. The ripple effect when moving 
up and down from line to line, 
however, takes a little more getting- 
used-to. If you move the cursor to a 
line which is already full, the last 
word of that Une is bumped down to 
the next — which may in turn cause 
a word to be bumped from that line 



to the next, and so on. This makes 
for quite a bit of visual chaos on the 
screen, making it difficult to keep 
track of where you are in the text 
when moving rapidly from one line 
to the next. 

The left and right arrows also 
function as editing keys. The left ar- 
row deletes text backward, and the 
right arrow re-enters deleted 
characters, much as they do when 
editing BASIC program lines. The 
difference here is that the left arrow 
actually erases characters from the 
screen when deleting them, and the 
right arrow rewrites them. This pro- 
vides a simple method for moving a 
portion of text from one place to 
another: You position the cursor at 
the end of the text you want to 
move, delete it from that place using 
the left arrow, move the cursor us- 
ing the appropriate ESC key se- 
quence, and then "regurgitate" the 
deleted text at the new location us- 
ing the right arrow. This approach 
is a bit unconventional, but quite 
ingenious. 

All other word processing func- 
tions are accessed through control 
characters. Insertion and deletion of 
text, for example, can be done a full 
word or a full paragraph at a time 
instead of just one character at a 
time. CTRL-W deletes or inserts a 
word, while CTRL-X does the same 
for a paragraph. Whether you're in- 
serting or deleting is controlled by 
the direction of a little arrow on the 
Data Line, which is toggled right or 
left using CTRL-D. You can move 
directly to the beginning or end of 
your text by pressing CTRL-B 
or CTRL-E. Pressing CTRL-R 
switches you into the replace mode, 
allowing you to type over existing 
text with new. CTRL-I moves you 
to the next tab position, which you 
set earher using CTRL-T. Finding 
and replacing certain characters in 
your text is accomplished by press- 
ing CTRL-F, followed by the 
characters you want to find and (op- 
tionally) the new ones you want to 
put in their place. Other control 
characters allow you to save and 
load files from disk, clear the cur- 
rent text from memory, convert 
upper-case text to lower-case and 
vice-versa, execute normal DOS 
commands, and access "help" 
displays which explain various 
commands. 



Two powerful editing features of 
Apple Writer II bear mentioning. 
One allows you to define a 
"glossary" of words, phrases, or 
any other characters, which you 
may have occasion to use frequently 
while writing. Once defined, press- 
ing three keys (CTRL-G plus one 
other which you specify in the 
definition) will insert the entire 
defined term into the text. A single 
term can be up to 128 characters, 
and the whole glossary table can be 
up to 2048 characters long. Any 
number of glossary tables can be 
created and stored on disk. 

A second powerful feature allows 
you to split the screen display into 
upper and lower sections, and 
display different parts of your text 
independently in the two areas. This 
can be very helpful when you need 
to refer one portion of text while 
writing or editing another. (Along 
these same Hnes, another option 
allows you to view the contents of a 
file on disk while not disturbing the 
file in memory.) 

In addition to being a capable 
editor, Apple Writer II is also a 
capable printout formatter. Print- 
out formatting can be done either 
from within the text by use of 
embedded format commands, or us- 
ing a print options menu prior to 
printout time. This menu's default 
values can be reset at any time, and 
permanently saved on disk. All the 
standard options are available, in- 
cluding left, right, and center 
justification options, paragraph in- 
denting (or "outdenting"), pause 
between pages for sheet-feeding 
your printer, margin values, and 
page length, and automatic page 
numbering. Also available are 
automatic top and bottom line 
headings. 

A major feature of Apple Writer 
II not yet mentioned is WPL. That 
stands for "Word Processing 
Language," and it represents a 
method of automating various word 
processing tasks. If you are familiar 
with the use of the Apple DOS 
EXEC command, then you under- 
stand the basic idea of WPL. WPL 
allows you to create a disk file con- 
taining commands which 
automatically control the operation 
of the word processor. Once you 
create this command file, you can 
use Apple Writer's DO command to 
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tell the computer to take over, using 
that set of commands. 

The most common application of 
such automation would be in the 
creation of form letters. You would 
first create your standard form let- 
ter. Instead of typing a specific 
name, address, date, and so forth in 
the letter, you would enter generic 
phrases of your choice at the correct 
places. You would then create (or 
convert to a format usable by Apple 
Writer) a text file containing your 
names and addresses and whatever 
other information you want. Finally 
you would create a WPL program 
which would automatically go 
through the name/address file entry 
by entry, inserting information 
where indicated in the form letter, 
and print out each letter. 

Various conditional operations 
can be included in your WPL pro- 
gram. This would enable you, for 
example, to insert a certain 
paragraph in the letter if a person's 
zip code were within a given range. 
Keyboard input can also be pro- 
grammed into the WPL program, to 
give you the capability of making 
run-time choices about the exact 
form and content of the letters. 

If WPL sounds versatile, it is. If it 
sounds a little complex, it is that 
too. A LITTLE complex. It's the 
sort of thing that programmers will 
rather enjoy, and non-programmers 
might find intimidating. It requires 
learning a very simple programming 
language consisting of just 17 com- 
mands, and then putting those com- 
mands together (very much as you 
would in a BASIC program) to con- 
trol the operation of the word pro- 
cessor. You can even use some WPL 
capabilities without learning the 
commands, since there are five 
WPL programs included on the Ap- 
ple Writer II disk (including one for 
printing form letters). 

Apple Writer II stores both text 
and WPL programs in normal text 
files on normally formatted 
16-sector disks. This makes it easy 
to back up important files or whole 
disks, using a copy program such as 
Apple's FID. (The master and 
backup disks supplied are in 
J6-sector format, but are protected 
against normal copying methods.) A 
convenient feature allows you to 
INITialize a blank disk directly 
from the editor, in case you run out 



of disk space in the middle of an im- 
portant document. This procedure 
produces a data disk which will not 
boot by itself but which gives you 
8K more available space than a nor- 
mally initialized disk. Other DOS 
commands — CATALOG, RE- 
NAME, LOCK, UNLOCK, and 
DELETE — can also be executed 
from the editor without having to 
exit the program. 

Superscribe II 

A step up the alphabet from Ap- 
ple Writer II is Superscribe II. Like 
Apple Writer, it comes with two 16- 
sector disks, a manual, and a refer- 




ence card. In this case the manual is 
a little thicker (154 pages) and has a 
ritzier cover (a padded loose-leaf 
binder), and the reference card is is 
a folded affair with three sides of in- 
formation rather than two. The 
documentation is pretty well writ- 
ten, but rough in places — not quite 
as ritzy as its cover. The roughness 
is minor but occasionally annoying, 
consisting mostly of improper punc- 
tuation which gives some sentences 
a different meaning than was in- 
tended. Overall the writing style is 
not quite as lucid as Apple Writer's. 
To be fair, it must be pointed out 
that describing Superscribe II is a 
more complex task than describing 
Apple Writer II. Its features are 
more numerous and flexible, and 
therefore require more extensive 
knowledge to use effectively. A 



quotation from the manual itself 
highlights the tradeoff that one 
makes for increased flexibihty: "As 
you have seen. Superscribe II offers 
you a great deal of flexibility. It can 
be used to handle the vast majority 
of your writing needs. The problem 
with any program which has such 
flexibility is that there is a tendency 
for it to be complicated to use for 
simple tasks." (p. 73) It goes on to 
describe a method for reducing that 
complexity, by creating a number of 
standard formats which you com- 
monly use and saving these on the 
master disk. This is a good sugges- 
tion, and one that will simplify the 
use of any word processor. The fact 
remains that a larger choice of op- 
tions tends to make overall opera- 
tion more complicated. 

Superscribe II is not designed to 
make use of 80-column boards or of 
lower-case adaptors. Such hardware 
modifications are superfluous, 
because it generates its own 
character set using software. That 
set includes all standard 
alphanumeric characters and punc- 
tuation, plus special symbols 
representing control characters and 
carriage return. These are all quite 
legible and attractive, complete with 
descenders on the lower-case letters. 
This is a very (very) nice feature, 
since working with an upper-case- 
only display is aggravating, and 
lower-case adaptors aren't free. 

What makes it even nicer is that, 
in addition to the normal 40-column 
character display, you can switch to 
a narrower character set which 
squeezes 70 columns onto one Hne. 
If you have a good black and white 
monitor, you can make use of this 
70-column display as your normal 
mode. With a color monitor or a 
normal TV set, the narrower 
characters are only marginally 
readable and would be very tiring 
for continuous use. They are still 
useful, however, for previewing the 
way the text will look on a normal 
printed page, or for constructing 
charts and tables where you need to 
visualize everything in vertical col- 
umns all the way across the page. 

When you boot the Superscribe II 
disk, you will be confronted with 
the main menu, giving you the 
choice of entering the Editor or the 
Runoff program. Presumably the 
two parts of the word processor are 
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separated in this way because of 
memory requirements. (After all, an 
8K chunk is taken out of text 
memory because of using the Hi-Res 
screen to display the software- 
generated characters.) It is in some 
ways a regrettable separation, 
because it makes the process of 
getting a printout much more 
cumbersome. 

With most word processors, a few 
keystrokes and a few seconds will 
take you from editing text to print- 
ing it out on a printer. This one re- 
quires that you save the text to disk, 
exit the editor, and enter the runoff 
program to obtain your document 
in final form. In addition to the 30 
seconds required to load Runoff, 
you must then re-enter the name of 
the disk file that you want to print 
before you can actually get to the 
printing. Then, if you find that you 
want to make the most minor of 
modifications to the text after 
you've seen the printout, you must 
rerun the Editor (30 seconds), re- 
enter the disk file name and load the 
file, make the changes, save the text 
again, rerun Runoff, and again re- 
enter the disk file name. (Incidental- 
ly, a minor gripe is that after any 
disk operation, the cursor always 
returns to the beginning of the file 
instead of to the location where you 
were working.) 

Some relief from this cumber- 
some process is found in a feature 
that allows you to do a rough-form 
printout directly from the editor. 
This Hsting feature allows you to 
specify only two format parameters: 
line length and spacing. So, while it 
is certainly helpful in getting an idea 
of how the text will look, it's not a 
substitute for the final product. 

The editor itself is a very capable 
piece of software, with enough 
features (I would think) to satisfy 
almost any writer. All the 
capabilities mentioned above for 
Apple Writer II are also available 
with Superscribe II. The editing 
functions, however, do not have as 
familiar a feel at first. Instead of us- 
ing ESC key sequences to move the 
cursor about, CTRL and SHIFT- 
CTRL combinations are used, along 
with the left and right arrows. 

The arrow keys do not delete and 
rewrite text, but merely move the 
cursor left and right over the 
characters without effecting them. 



To move the cursor vertically, the 
key combinations CTRL-A and 
SHIFT-CTRL-A are used. Follow- 
ing a convention used throughout 
Superscribe II, the unshifted com- 
bination moves forward in the text 
(down, in this case) and the shifted 
combination moves backward (up). 
In like manner, CTRL-Z and 
SHIFT-CTRL-Z move the cursor a 
word at a time, and CTRL-P and 
SHIFT-CTRL-P move it one full 
screen page at a time. Deleting text 
is accomplished (in a more conven- 
tional manner than with Apple 
Writer) character by character with 
CTRL-D or SHIFT-CTRL-D, and 
line by line with CTRL-K or SHIFT- 
CTRL-K. 

This approach to editing is rather 
satisfying logically, but does have its 
problems. The chief problem is that 
it sometimes requires relatively com- 
plex keystroke patterns. To move 
the cursor up a line in the text (a 
very common operation), you must 
hold down three keys simultaneous- 
ly: SHIFT, CTRL, and A. To move 
up repetitively, you need to hold 
down a fourth, the REPT key. I 
have yet to find a thoroughly com- 
fortable way of doing this, although 
I'm getting somewhat used to it. If 
you haven't made the shift-key 
modification to your Apple, using 
this editor will impel you to do so. (I 
did so after half an hour's practice 
without it. The manual contains 
how-to instructions, but it's a bit 
unclear which of the solder points 
on the underside of the shift-key 
switch to use. Naturally, I picked 
the wrong one the first time — with 
no ill effects, except for all my text 
being upper case.) 

One mark of SuperScribe's ver- 
satility, however, is its ability to ac- 
cept almost any degree of personal 
customizing. If you think you can 
work out a better system of moving 
the cursor around the screen using 
different combinations of 
characters, you're free to try. In a 
way similar to Apple Writer's 
glossary setup, you can redefine any 
key or key combination to represent 
any other key or key combination. 
So if you'd rather move the cursor 
up a line using CTRL-S instead of 
SHIFT-CTRL-A, you just punch a 
few keys and it's done. Of course, in 
doing so you lose the abiUty to move 
the cursor to the next occurrence of 



a given character in a line, which is 
what CTRL-S normally does. If you 
want to retain that function, you 
have to redefine it first in terms of 
another key combination. Judicious 
use of such "macros" can be of 
great benefit, both in redefining 
editing functions and in quickly 
entering often-typed words and 
phrases. 

Superscribe II has several addi- 
tional capabilities which should be 
of considerable interest to serious 
writers. One is its ability to work 
with text files larger than the 
available memory inside the Apple, 
without the writer having to worry 
about managing several disk files. It 
does this by automatically reading 
from and writing to the disk as 
needed. It's a little disconcerting the 
first time this happens: The disk 
drive starts whirring and the 
keyboard freezes for a second or 
two, and you're sure that you've 
been zapped by your friendly 
neighborhood arc welder. But then 
the cursor returns, all the characters 
you typed during that second or two 
appear on the screen in the right 
place, and all is well. You can thus 
work with a file as large as an entire 
disk's storage capacity. 

Another plus for serious writers is 
the ability to maintain up to four 
separate indices of key words or 
subjects in your document. As you 
write, you can insert an index token 
character next to any word or 
phrase that you want to be indexed, 
and when you actually print out the 
text all such references will be noted 
by page number. You could also, if 
you care to, automatically index 
every occurrence of a given string of 
characters using the find/replace 
function to insert the appropriate 
index token. The whole system is a 
flexible one, allowing you to keep 
track not only of words actually 
printed in the text, but also of 
themes or ideas which you may want 
to index. 

Other features include automatic 
printing of multiple page headers 
and footers, automatic or manual 
hyphenation, and the ability to ac- 
cept footnotes and print them on the 
proper page of the finished text. 
You also have the ability to "spool" 
a text file from a disk to a printer, 
while working on a different text file 
with the editor. This can be a signifi- 
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cant time-saver if you need to print 
out a very long file. 

Complete form-letter capabilities 
are also built into Superscribe II. 
Unlike Apple Writer, you do not 
need to use a separate control pro- 
gram to execute the necessary 
repetitive functions; they are all 
built into the Runoff program. Us- 
ing a text file containing names and 
addresses, and another containing 
the form letter itself, you can 
automatically print "personal" let- 
ters to your heart's content. 

h\kQ Apple Writer 11, Superscribe 
II vses standard 16-sector formatted 
disks for text storage. The master 
and backup disks are not copiable 
by normal means, however. (You 
can copy all the files, but you can't 
create a bootable disk.) Unlike Ap- 
ple Writer, you cannot initialize a 
blank disk from the editor, a minor 
inconvenience. Incidentally, the 
Superscribe disks are very sensitive 
to disk drive misadjustments, due to 
the complex nature of the disks' ar- 
chitecture (their copy-protection 
scheme). One of my drives, which 
handles other commercial disks 
almost flawlessly (I admit there is an 
occasional boot error), will suc- 
cessfully load the editor and run- 
off programs only about a third of 
the time. 

SuperText II 

Finally we come to SuperText II, 
a bit beyond Superscribe II in both 
the alphabet and the price scale (but 
not by much, in either area). It 
comes with two identical 13-sector 
disks which will boot also on 
16-sector systems, a 90-page manual 
in a moderately ritzy padded binder 
(same page size as the others), and 
no rip-out reference card. The quali- 
ty of the documentation is excellent, 
on par with that of Apple Writer II. 

This editor's functions are di- 
vided clearly into three writing/ 
editing modes, a unique math mode, 
and a printout mode. The 
writing/editing modes, in which you 
spend the vast majority of the time, 
are the cursor mode, the add mode, 
and the change mode. 

The cursor mode is the one in 
which you find yourself upon enter- 
ing the editor, and from which all 
other modes and operations are ac- 
cessed. From this mode, moving the 
cursor around in your text is very 



convenient. Like Apple Writer's l-J- 
K-M diamond of cursor movement 
keys, SuperText II has its own dia- 
mond: The left and right arrows, 
RETURN, and /. Being close to the 
REPT key, these are very conve- 
nient to use and quickly become 
second-nature. For grosser move- 
ment through the text, there are 
logical extensions: Pressing the ESC 
key prior to any of the four basic 
movment keys causes the cursor to 
move all the way to the left, right, 
top, or bottom margin of the screen 
display. Beyond this, pressing P 
moves you one screen page forward 
or backward through the text; the 




direction is determined by a direc- 
tion indicator which is changed us- 
ing the + and - keys (shifted or un- 
shifted). You can also shift the text 
display just one line up or down by 
pressing the L key, move the cursor 
to the center of the screen or to the 
location of the last change in the 
text with one keystroke, or move all 
the way to the beginning or end of 
the file by pressing ESC- or 
ESC-+. 

It is from the cursor mode also 
that you do such editing operations 
as deleting (although you can also 
delete from the change and add 
modes), finding and replacing 
strings of characters, and moving 
blocks of text from one place to 
another. For instance, CTRL-D 
deletes a single character, ESC- 



CTRL-D deletes to the end of a 
word, and CTRL-G deletes to the 
end of a line. CTRL-F is used to 
find a string, and CTRL-R to 
replace one string with another. 
Blocks of text are manipulated in a 
manner similar to SuperScribe II 
and other word processors: A block 
marker is inserted at the beginning 
and end of the section of text, and 
then it can be copied to another 
place, deleted, or saved to disk as a 
unit. Such block markers, as well as 
all other embedded control 
characters, are designated by inverse 
video letters on the screen (in con- 
trast to Apple Writer, which uses in- 
verse to designate capital letters and 
flashing video to indicate control 
characters). 

Like Apple Writer, SuperText II 
has a split-screen mode which allows 
viewing and manipulating two dif- 
ferent sections of text simultaneous- 
ly. A convenient additional feature 
allows the split in the screen to be 
moved upward or downward, to be 
able to view more of one section 
than the other. This function, too, is 
manipulated from the cursor mode. 

From the cursor mode you can 
enter any of the other modes or ex- 
ecute disk operations, each through 
a different control code. CTRL-L 
and CTRL-S enable you to load, 
save, and otherwise manipulate disk 
files; CTRL-A enters the add mode; 
CTRL-C enters the change mode; 
CTRL-E enters the math mode; and 
X enters the printout mode. 

The add mode is the basic writing 
mode, and operates in much the 
same way that Apple Writer's basic 
writing mode does. Anything you 
type is added into the text wherever 
the cursor is, pushing any text ahead 
of it forward as you go. The left ar- 
row deletes text already typed, but 
doesn't save it for re-entry 
elsewhere. The right arrow moves to 
the next location on the current line 
which is directly under a space on 
the line above — an "implied tab 
stop." ESC-SPACE, ESC-/, and 
ESC-; are variously used to fill a line 
with spaces or to copy one or more 
words from the previous line into 
the current line. Several other 
tabbing and word-justification com- 
mands are also available. The only 
macro capability is the optional use 
of the colon key to enter "the" into 
the text. Pressing ESC twice returns 
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you to the cursor mode. 

The change mode is very similar 
to the cursor mode, except that 
characters at the cursor can be 
changed by typing over them. The 
only characters which can't be 
substituted in this mode are /, car- 
riage return, CTRL-D, and CTRL- 
G, since they are interpreted as cur- 
sor movement and editing com- 
mands. Return to the cursor mode is 
again via ESC-ESC. 

The printout mode provides the 
usual opportunities to format the 
final printout of your file, either 
through use of the default options 
which can be set upon booting the 
disk, or with embedded format lines 
and other control characters to 
modify those default values. Six 
control characters are user- 
definable, to represent any control 
sequence that your printer may re- 
quire for special printing functions. 
This doesn't represent as much ver- 
satility as the other editors (and set- 
ting up the definitions involves a bit 
of hexadecimal arithmetic and use 
of the Apple Monitor to modify 
memory) but it seems adequate for 
most users. 

A preview feature in the printout 
mode is a convenient option that 
allows you to view the text on the 
screen exactly as it will be printed on 
paper, with line spacing, page 
breaks, page numbers, and justifi- 
cation. Of course, you can't view 60 
columns on a 40-column display, so 
lines wider than 40 characters wrap 
around to the beginning of the next 
screen line. But the preview does 
give an accurate impression of the 
final form of the printout, before 
wasting any paper. 

SuperText II allows you, both in 
printout and in editing modes, to 
link any number of disk files 
together so that they are treated 
essentially as one file. This method 
is not quite as transparent to the 
user as Superscribe 's, but it works 
effectively. Multiple parts of a large 
document, then, can be printed se- 
quentially, and edited in either for- 
ward or reverse sequence. 

A unique feature of SuperText II 
is its math mode. It allows you, 
while in the process of preparing a 
document with the editor, to do 
various mathematical calculations. 
With 15-digit capacity, it is capable 
of almost any calculations you 
would normally encounter. It can be 



used either directly as a calculator, 
by simply entering numbers and 
functions and looking at the 
displayed result; or, more 
significantly, to perform calcu- 
lations on numbers in your text file. 

If you have a table or chart, for 
instance, with columns of figures, 
and need totals for each column, it's 
a simple matter to position the cur- 
sor over the bottom number, press 
C or CTRL-C, and see the total ap- 
pear in the accumulator. This can 
then be inserted at the proper place 
in the text by moving the cursor and 
pressing R. Numbers not in columns 
can also be used in calculations. Just 
move the cursor to a number, press 
a mathematical function key, and 
that function will be executed using 
the accumulator total and the 
number at the cursor. This mode 
would be extremely helpful for 
someone who prepares financial, 
engineering, or other sorts of 
reports using a word processor. 

SuperText II has one distinctive 
feature which may be either a matter 
of indifference or a matter of some 
importance to you. It does not use 
standard disk formatting. Disks 
which are to be used to store text 
must be formatted using the 
SuperText disk. It also stores text on 
disk not in a text file format but in a 
binary file format. The significance 
of this is that its disks and files are 
essentially incompatible with 
everyone else's disks and files. This 
is of very little or no importance if it 
is the only word processor you use, 
and if you have no occasion to want 
to edit or merge other types of files 
into your normal word processor 
files. (The SuperScribe II manual 
gives instructions for an indirect 
method of loading SuperText files 
into the SuperScribe editor, as- 
suming that you have both word 
processors.) 

If, on the other hand, you want to 
be able to load and edit, say, Ap- 
plesoft programs (saved in non- 
tokenized form as text files), you 
just can't do it with SuperText. And 
that goes for any other disk files 
which are saved as text files on nor- 
mally formatted disks. I don't find a 
word processor to be a very conve- 
nient program editor. (The com- 
bination of Synergistic Software's 
Program Line Editor and Highlands 
Computer Services' Co-Resident 



Applesoft Editor is ufibeatable in 
this department.) But if you want to 
do ANY fooling around with nor- 
mally formatted text files, be 
forewarned. 



Conclusions and 
Recommendations 

Here are my gut-level reactions to 
these three products, all of which 
are excellent and apparently bug- 
free. 

SuperText II is a comfortable and 
faithful old friend which I have 
found easy and sensible to use. It 
doesn't have the kinds of frills that 
SuperScribe II does, but it has 
enough to make it perfectly accept- 
able for everyday word processing 
and the occasional more lengthy and 
demanding work I've done. 

Apple Writer II is an elegantly 
simple editor, with which an Apple 
programmer can feel at home 
almost instantly. Its Word Process- 
ing Language gives it automated 
capabilities which raise its basic 
simplicity to a much greater level of 
sophistication for those who need it. 

SuperScribe II is at once the most 
exciting and the most aggravating of 
the three. I like all its ingenious 
features, but dislike some aspects of 
its basic personality. I definitely 
have a love/hate relationship with 
this program. 

I can recommend all three as ex- 
cellent performers. My guess is that 
serious writers might be happiest in 
the long run with SuperScribe II, 
although they might find its com- 
plexity a hindrance at times. The 
more casual writers might be hap- 
pier with Apple Writer II or 
SuperText II. Of these, SuperText 
uses what I perceive as a more con- 
ventional approach to editing, 
although either would be easy 
enough to adopt in short order. 

Form letter capability is not in- 
cluded with SuperText IT, however, 
a form letter/address book module 
is available (and how many of us 
need to generate form letters 
anyway?). 

There are undoubtedly other 
packages out there that offer equal- 
ly reliable basic editing, and may 
have special combinations of 
features that you need. But I don't 
think you can go too far wrong with 
one of these. O 
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Crypto 



An ATARI® K-Byter by Jerry 
Aamodt, Rochester, MI 



When you RUN this program the 
computer will select a phrase from 
its repertoire, encode it, and display 
the encoded phrase twice on the 
screen. To decode it you enter the 
letter to be changed and, when 
prompted, the letter to be 
substituted. The first line displayed 
on the screen will be changed ac- 
cording to your command; the sec- 
ond line will remain in its original 
form for reference. When the 
decoding is completed correctly, the 
computer will select another phrase 
and continue. 

A branch between lines 40 and 50 
could be used to allow the input of a 
phrase (A$) up to the DIMension 
you wish to set. You could also 
allow a coded phrase to be entered 
(B$), and then use the program to 
decode it — in which case the 
IF.. .THEN... in line 130 should be 
deleted or circumvented. 

Of course, the DATA statements 
may be freely changed and sup- 
plemented. When changes are 
made, just make sure that the ran- 
dom number multiplier in line 40 (5, 
in the listed program) is changed to 
equal the total number of phrases in 
the DATA lines. 



5 REM CRYPTO by Jerry Aaaodt 

10 Din At(300),B$(300),C»(300),D$il),E 

$(1),A(26) 

20 FOR 1=1 TO 26:fl(I)=-l;NEn I:C=65:B 

$="VFOR 1=1 TO 26 

30 B=INT(26tRNDfO)+l):IF A(B)<>-1 THEN 

30 
40 A(B)=C:C=C+1:NE)(T IiRESTORE 1000+IN 
T!5tRND(0)):READ A*!B$=A$ 
50 FOR 1=1 TO LEN!A»):IF ASCIA$(I,I))> 
64 AND ASC(A$(I,I))<9I THEN B»(I,I)=CH 
R$(A(ASC(A»(I,I))-64)) 
60 NEXT I:? "}":C$=B»:POSITION 2,6:'' C 
$:POSITION 2,15:? B« 
100 POSITION 2,20:? "ENTER LETTER TO B 
E CHANGED";: INPUT D* 
110 POSITION 2,20:? "ENTER LETTER TO B 
E TRIED ";: INPUT E» 
120 FOR 1=1 TO LEN(fi$):IF B$(I,I)=D$ T 
HEN C«(I,I)=E» 

130 NEXT I:POSITION 2,6:? C»:IF C»=ft* 
THEN 20 
140 GOTO 100 

1000 DATA NON IS THE TIME FOR ALL BOOD 
MEN TO COME TO THE AID OF THEIR COUNT 

RY 

1001 DATA YOU'VE COME A LONB HAY BABY 

1002 DATA SING A SONG OF SIXPENCE POCK 
ET FULL OF RYE 

1003 DATA I'VE NOT YET BEGUN TO FIGHT 

1004 DATA I'VE GOT THE HORLD ON A STRI 
Nfi ® 



54 April] 982 J^ 



SoftSide 




ATARfDV 



Kenumberine 



u 



Win- The 

ATARF 



by Frank Roberts 

Renumbering for the ATARI® is 
a utility program for a 16K 
ATARI® 800 with disk drive. It is 
included as a bonus program on this 
month's ATARI® DV. 

Have you ever allowed "plenty" 
of room between lines only to find 
later all the space had been used in 
earlier revisions? What does ^ pro- 
grammer do when an insertion is 
needed between lines 1873 and 
1874? Renumbers the program, 
right? After all, BASIC doesn't 
allow fractional increments and, 
alas, ATARI® BASIC has no 
renumbering command. 

At times like these (and I have en- 
countered many), renumbering a 
program by hand is painfully 
necessary. The commercial ones I 
have seen on the market start at 
around $20. Well, relax. Here's a 
cheap and easy renumbering pro- 
gram for the ATARI®. 

The secret to it is in the 
LIST"D:" command. A program 
"SAVED" to the ATARI® disk is 
written in a tokenized version 
(speedy and efficient for the com- 



puter, incomprehensible to most 
humans), but a LISTed program is 
written to the disk exactly as it is 
entered: a BASIC listing containing 
all line numbers, variables and word 
commands. 

By using the GET command, each 
element of the program can be ex- 
amined in order of its Hsting. Before 
RUNning this program the program 
to be renumbered must be LISTed 
to the Disk, then the renumbering 
program LOADed into RAM and 
RUN. From there on it is all 
automatic. 

The program is in two parts. Part 
one calls the target program from 
the disk and places the old numbers 
into a pseudo string array, then 
calculates the new line numbers in 
accordance with user instructions 
and places them into a correspond- 
ing string array (strings take a lot 
less RAM than numerical arrays). 

The second part searches each line 
for GOTO, GOSUB, THEN and 
TRAP, and for the line number im- 
mediately following each, and 
matches it with the old destination 
number. The new number is then 



located in the NU$ and placed in the 
original line. The edited line is then 
filed in a temporary file (D:T). 

When the program has been 
renumbered, the XIO commands 
purge the old listing and rename the 
newly-numbered version, at the 
user's request. Once this is done, the 
newly-renumbered program should 
be ENTERed and the SAVED to the 
disk before RUNning. 

The program is slow, but effec- 
tive; it is inexpensive and has proven 
itself indispensable to me. On long 
programs I just take a break with a 
cup of coffee while the ATARI® is 
doing my "dirty work." 

Numeric variables and calculated 
commands such as GOTO X or 
GOSUB X*1000 will need to be 
reset manually. The program allows 
easy access to such lines by record- 
ing the lines containing such reroute 
commands in string array (M$). At 
the end of renumbering, these hne 
are printed for the convenience of 
the programmer. The program also 
allows for optional printer listing of 
the renumbered version. © 
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by Mark Lewis Baldwin 

Starbase 13 is an space game for 
the ATARI® 400/800 computer 
with a minmum of 16K RAM. 

You are the commander of Star- 
base 13, the last defensive outpost 
between Earth and the dreaded alien 
invasion fleet. The longer you hold 
out, the more time Earth has to 
prepare its defenses, so you must 
stay and fight to the last humanoid. 

In order to defend yourself, you 
have a giant laser cannon capable of 
penetrating any craft's force shield 
with a single shot. The joystick is 
used to change its direction while 
the trigger button activates firing. 
But beware, you only have a limited 
amount of energy. As you fire the 
cannon your shields weaken and the 
enemy gets closer. 

The aliens have been well trained 
in attack and flee maneuvers. They 
will appear at the outer limits of 
your shields, fire their weapons and 
retreat. As they gain experience in 
attacking you, they remain visible 
for shorter periods of time, so be 
quick. 



To start the game, push the trig- 
ger on your joystick controller and 
off you'll go. Your score is derived 
from the number of alien ships and 
missiles destroyed, plus the time you 
remain alive. 

For a change of pace, insert 
another joystick controller in slot 2 
and give it to a friend. Then push 
any console button and you will 
hear two beeps denoting the two- 
player mode. Push it again to return 
to the one-player mode (one beep). 
While in the two-player mode, 
player one controls the laser while 
player two fires. This can be rather 
tricky. 

The following are a few com- 
ments about the program coding: 
The use of almost duplicate sets of 
coding several places in the program 
is not a result of poor programming. 
This was done to gain as much speed 
as possible out of a program with a 
very slow language. Also the ex- 
plosion subroutine at 5300 might be 
of interest. It allows a long explo- 
sion to cycle while the rest of 



the program can still continue to 
execute. 



Variables 

AF: Type laser hit. 

ALNPl: Position of alien 1. 

ALNP2: Position of alien 2. 

ALNTl: Time to event, alien 1. 

ALNT2: Time to event, alien 2. 

ARNG: Current shield range. 

AT: Alien reaction time. 

BASE: Position of base laser 

cannon. 

CONSOL: Address of START 

buttons. 

E: Energy counter. 

ESTP: Energy shield loss rate. 

FF: Laser fired flag. 

HF: Hit nag. 

MI(n): Status of missile n. 

MS: Missile speed. 

P: Stick request. 

R: Laser range. 

S3: Explosion status. 

SC: Score. 

T: Time counter. 

TSPD: Rate of change of AT. 
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t Atari BASIC % 
t 'STARBASE 13' $ 

» AUTHOR: Hark Lewis Baldwin $ 
i (c) 19S2 SofttSide « 



5 DIM «I(4):C0NS0L=53279 

10 GRAPHICS 0:SETCOLOR 2,6,1:SETCQL0R 

4,6,1:UB=PEEK(560)+PEEK(561)»256+4:P0K 

E UB-1,70:POKE UB+2,7:P0KE UB+3,7 

20 FOR 1=4 TO 8:P0KE UB+I,6:NE1(T I:POK 

E LfB+22,65:P0K'E UB+23, PEEK (560): POKE U 

B+24, PEEK (561 ):SETCOLOR 3,8,6 

30 POSITION 4,1:? l6;"STARBftSE 13" 

40 POKE B7,1:P0SITI0N 2,7:? I6;'the la 

5t stand" 

50 POKE 752,1:P0KE B7,0:P0SIT10N 5,14: 

? "By Mark Lenis BaldKin" 

60 IF PEEK(C0NS0L)<>7 THEN 60SUB 5500 

70 IF STRI6(0)<>0 THEN 60 

100 6RAPHICS 23:SETC0L0R 0,1,10:SETC0L 

OR 1,6,B:SETC0L0R 2,12,6:SETC0L0R 4,0, 

0:COLOR liFOR 1=1 TO 40 

110 PLOT 159*RND(0),95»RND(0):NEXT I 

120 PLOT 74,42:DRA«T0 76, 42: PLOT 84,42 

:DRAHTO 86,42 

130 PLOT 74,43:DRAIIT0 76,43:PL0T 84,43 

:DRAHT0 86,43 

140 PLOT 74,44:DRA«T0 86,44:F0R 1=45 T 

51: PLOT 76,I:DRA«T0 84, I: NEXT I: PLOT 

74,52;DRAKT0 86,52 

150 PLOT 74,53:DRAHT0 76,53:PL0T 84,53 
:DRAHTO 86,53 

160 PLOT 74,54:DRANT0 76,54:PL0T 84,54 
:DRAHTO 86,54 

170 FOR 1=1 TO 4:MI(I)=0:NEXT I 
180 AT=20:ALNTl=2+RND(0)t5:ALNPl=0:ALN 
T2=RND(0)«flT:ALNP2=0:nS=4 
190 TSPD=20: 33=200: ESTP=5: fiRNG=47: SC=0 
;POKE 77,0 
200 SC=SC+1:80SUB 5310:T=T+1:IF T>TSPD 

THEN AT=flT-l:T=0:IF AT<1 THEN AT=1 
205 BOSUB 2000: IF FF=1 AND BASEOO THE 
N 250 

210 IF BASE=0 THEN 225 
215 IF P=0 OR P=BASE THEN 300 
220 COLOR 0:60SUB 3000:BASE=0:60T0 300 
225 IF P=0 THEN 300 

230 COLOR 1:BASE=P:60SUB 3000: GOTO 300 
250 FF=2:E=E+1:IF E>ESTP THEN E=0:RN6F 
=1 

260 R=47:HF=1:IF ABS(ALNP1)=BASE THEN 
HF=2:R=ARNe-3:AF=l:60T0 280 
270 IF ABS(ALNP2)=BASE THEN HF=2:R=ARN 




6-3:AF=2 

280 IF MI (BASE) >6 THEN HF=3:R=HI(BASE) 

290 60SUB 1000: IF STRIG(TRI6)<>0 THEN 

FF=0 

300 Q=Q+1:IF Q>4 THEN GOTO 400 

310 IF HI(Q)=0 THEN 200 

315 MI(Q)=MI(Q)-MS:IF ni(Q)<2 THEN 150 



320 ON Q GOTO 330,340,350,360 

330 COLOR 0:PLOT 80,48-MI(Q)-HS:C0L0R 

3: PLOT 80,48-«I(Q):G0T0 200 

340 COLOR 0:PLDT 80+HI(Qj+HS, 48: COLOR 

3; PLOT 30+MI(B),48:G0T0 200 

350 COLOR 0:PLOT 80, 48+HI(Q)+HS: COLOR 

3: PLOT 80,48+MI(Q):G0T0 200 

360 COLOR 0:PLOT 80-MI(B)-nS,48:C0L0R 

3:PL0T 80-MI(Q),48:60T0 200 

400 IF RN6F=1 THEN IF ALNP1=0 AND ALNP 

2=0 AND ARN6>10 THEN ARNB=ARN6-2:RN6F= 



410 IF B>5 THEN 8=0: GOTO 600 

500 ALNT1=ALNT1-1:IF ALNTDO THEN 200 

530 IF ALNP 1)0 THEN 570 

540 IF ALNPKO THEN COLOR 0:60SUB 4000 

:ALNPl=0:ALNTl=INT(RND(0)tAT)+l:60T0 2 

00 

550 ALNP1=INT(RND(0)*4+1):ALNT1=AT:IF 

HKALNPDOO OR ALNP2=ALNP1 THEN ALNPl 

=0:ALNT1=0:G0T0 200 

560 COLOR 3:60SUB 4000: IF RND(0)tAT>0. 

5 THEN 200 

570 MI (ALNPl )=ARN6-4: BOSUB 5100:ALNTI= 

AT; ALNP1=-ALNP1: COLOR 3:0N -ALNPl GOTO 

700,710,720,730 



600 ALNT2=ALNT2-1:IF ALNT2>0 THEN 200 
630 IF ALNP2>0 THEN 670 
640 IF ALNP2<0 THEN COLOR 0:60SUB 4010 
:ALNP2=0:ALNT2=INT(RND(0)IAT)+1:60T0 2 
00 

650 ALNP2=INT (RND(O) 14+1 ) : ALNT2=AT: IF 
I1I(ALNP2)<>0 OR ALNP2=ABS (ALNPl) THEN 
ALNP2=0:ALNT2=0:60T0 200 
660 COLOR 3:60SUB 4010: IF RND{0)tAT)0. 
5 THEN 200 

670 MI(ALNP2)=ARNB-4:60SL1B 5100:ALNT2= 
AT: ALNP2=-ALNP2: COLOR 3: ON -ALNP2 GOTO 
700,710,720,730 
700 PLOT 80,52-ARN6:60T0 200 
710 PLOT 76+ARNG,48:60T0 200 
720 PLOT 80,44+ARNG:60T0 200 
730 PLOT 84-ARN6,4B:G0T0 200 
1000 COLOR 2; ON BASE GOTO 1010,1020,10 
30,1040 

1010 PLOT 80,41:DRAI(T0 80,43-R:60SUB 5 
000: COLOR 0:PLOT 80,41:DRA«T0 80,48-R: 
SOTO 1050 

1020 PLOT 87,48:DRAKT0 80+R,48:60SUB 5 
000: COLOR 0:PLOT 87,4B:DRAKT0 80tR,4B: 
GOTO 1050 

1030 PLOT 80,55:DRA»(T0 80,48+R:60SUB 5 
000:C0L0R 0:PLOT 80,55:DRA«T0 80,48tR: 
GOTO 1050 

1040 PLOT 73,48:DRA«T0 80-R,48:60SUB 5 
000:COLOR 0:PLOT 73,48:DRANTQ 80-R,48 

Check type of hit. 

lose ON HF GOTO 1060,1080,1070 
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Missed. 

1060 RETURN 

Hit alien missile. 

1070 flI(BASE)=0:SC=SC+5:B0SUB 5200: RET 
URN ■ 

Hit alien ship. 

1080 SETCOLOR 4,0,14:60SUB 53O0:C0LQR 

0:SC=SC+50 

1090 IF AF=1 THEN 60SUB 4000: SETCOLOR 

4,0,0:ftLNPl=0:ALNTl=flT:RETURN 

1100 60SUB 4010:SETC0L0R 4,0,0:ALNP2=0 

:ALNT2=AT: RETURN 

Blow up base. 

1500 SETCOLOR 1,0,14:C0L0R 2: FOR 1=0 T 
12:A=80-I:B=80+I:C=4S-I:D=43+I:SETC0 
LOR 4,0,14tBC:BC=l-BC:S0UND 0,6,0,1+3 
1510 SOUND 1,21,0, I+3:S0UND 2,27,0,1+3 
:30UND 3,40,0, I+3:PL0T A,C:DRA«TO B,C: 
DRAHTO B,D:DRA«TO A,D:DRAWTO A,C:NEn 
T 

1515 COLOR 0:FOR 1=15 TO STEP -1:A=B 
0-I:B=80+I:C=48-I:D=48+I:S0UND 0,2,0,1 
:SOUND 1,15,0, I :SOUND 2,20,0,1 
1520 SOUND 3,30,0, I: PLOT A, C: DRAHTO B, 
C:DRAHTO B,D:DRA«TO A,D:DRA«TO A,C:FOR 
J=l TO 20:NE)(T J:NE)1T 1 

Display score. 

1530 BRAPHICS 18:P0SITI0N 2,2:? 16; >o 

ur base was destroyed! i !":POSIT 

ION 2,5:? 16; "YOUR SCORE HAS" 

1540 POSITION 5,6:? »6;SC:P0SITI0N 1,8 

:? t6;"THE TOP SCORE HAS":POSITION 5,9 

:? #fi;SCT 

1550 IF SOSCT THEN SCT=SC 

Check console to change game modes. 



1560 IF PEEK(C0NS0L)<>7 THEN 60SUB 550 



Check to start a new game. 

1570 IF STRI6(0)<>0 THEN 1560 
1580 60T0 100 

Subroutine to check joystick. 

2000 IF STRI6(TRIB)=0 THEN 2100 

2005 ST=STICK!0):IF ST=11 THEN P=4:B0T 

2035 

2010 IF ST=14 THEN P=1:B0T0 2035 

2O20 IF ST=13 THEN P=3:B0T0 2035 

2030 IF ST=7 THEN P=2:B0T0 2035 

2035 IF FF=2 THEN FF=0 

2040 RETURN 

2100 IF FF=0 THEN FF=1 

2110 RETURN 

Subroutine to draw or erase laser 
cannon. 

3000 ON BASE 60T0 3010,3020,3030,3040 

3010 PLOT 80,42:PL0T 79,43:DRAWT0 81,4 

3: RETURN 

3020 PLOT S6,48:PL0T 85,47:DRAHT0 S5,4 

9: RETURN 

3030 PLOT 80,54:PL0T 81,53:DRA«T0 79,5 

3: RETURN 

3040 PLOT 74,4S:PL0T 75,49:DRAWT0 75,4 

7: RETURN 

Subroutine to draw or erase alien ships. 

4000 ON ABS(ALNPl) 6QT0 4100,4200,4300 
,4400 

4010 ON ABS(ALNP2) BOTO 4100,4200,4300 
,4400 

4100 PLOT 78, 48-ARN6: DRAHTO 82,48-ARNB 
:PLOT 82,49-ARN6:PL0T 80,49-ARNB:PL0T 
78,49-ARNB:PL0T 80,50-ARNB 
4110 PLOT 79, 51-ARNB: DRAHTO B1,51-ARN6 
: RETURN 
4200 PLOT 80+ARN6, 46: DRAHTO 80+ARN6,50 



:PLOT 79+ARNB,50:PL0T 79+ARN6,48:PL0T 

79+ARNB,46:PLOT 7a+ftRH6,48 

4210 PLOT 77+ARN6, 47: DRAHTO 77+ARN6,49 

: RETURN 

4300 PLOT 78, 48+ARN6: DRAHTO 82,48+ARNB 

:PLOT 78,47+ARNB:PL0T 80,47+ARN6:PL0T 

82,47+ARNB:PL0T B0,46+ARN6 

4310 PLOT 79, 45+ARNB: DRAHTO 81,45+ARN6 

: RETURN 

4400 PLOT 80-ARNB, 46: DRAHTO 80-ARNB,50 

:PLOT 81-ARNB,50:PL0T 81-ARNB,48:PL0T 
81-ARN6,46:PL0T 82-ARNB,48 

4410 PLOT 83-ARN6, 49: DRAHTO 83-ARN6,47 
: RETURN 

Laser fire sound routine. 

5000 FOR 11=10 TO 30:S0UND 0,11,10,10: 
NEXT IhSOUND 0,0, 0,0: RETURN 

Missile fire sound routine. 

5100 FOR 11=15 TO STEP -1:S0UND 1,50 

-2»II,10,II:NE1(T IhSOUND 0,0,0,0:RETU 

RN 

5200 SOUND 3,200, 12, 14:F0R 11=1 TO 10: 

NEXT II:SOUND 3,0,0,0:RETURN 

Start explosk>n for explosion subroutine. 

5300 S3=40 

Entry for continuation of the explosion. 

5310 S3=S3+5:IF S3>120 THEN SOUND 2,0, 

0,0: RETURN 

5320 SOUND 2, S3, 8,(150-53)/ 10: RETURN 



Subroutine to change between player 
modes. 



5500 TR1B=1-TRIB:F0R ITR=0 TO TRIE: SOU 
ND 0,100, 10, 8:F0R 11=1 TO 20:NEn II:S 
OUND 0,0,0,0:FOR 11=1 TO 20:NEXT II 
5510 NEXT ITR:RETURN © 
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by Alan J. Zett 

A TARI Banner Machine is a banner printing program for the 
ATARI® 400/800 with 16K RAM for tape, 24K for dislc, and a printer. 
Media subscribers will receive an enhanced version with a redefined 
character set. 

To go along with the general theme of word processing for this month's 
issue, I was asked to write a program that would produce printed banners 
for the ATARI® . We had already selected similar programs for the Apple 
and TRS-80®, but could find none for the ATARI® among our submissions. 

At first I thought of writing a translation, but discarded this idea 
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when a different thought suddenly 
leaped into my mind: Since the 
ATARI® character set uses a map of 
8 by 8 bits to form a character, why 
not use this same map to create 
characters on a printer as well as on 
the screen? In my Character 
Generator program in the October, 
1981, issue of SoftSide, I had 
already done a lot of the work 
necessary to create such over-sized 
characters from the ATARI® 's in- 
ternal character set. So by going one 
step further, I developed a version 
of Character Generator that would 
print the ATARI® character set, on 
its side, enlarged to any degree. The 
characters printed would be an exact 
duplicate of the characters as 
displayed on the screen. Taking this 
basic idea and adding many options 
has led to Banner Machine. 

Banner Machine is designed with 
Character Generator in mind. The 
two work hand-in-hand. Note that 
the print quality of Banner Machine 
is totally dependent on the character 
set in memory. This is why I recom- 
mend that you use Character 
Generator first to define a new 
character set, and then merge this 
character set with Banner Machine. 
This has been done to some extent 
for those who subscribe to the 
media version of SoftSide; however, 
I still recommend that you design 
your own to suit your needs. 

The program's operation is quite 
straightforward. Type "RUN", and 
after a small wait you will be asked 
for the character width of your 
printer. Normal responses are 40, 
80, or 132, but anything in between 
will work if necessary. If you choose 
40 characters per line, most of the 
remaining options will be disabled. 
This is because at 40 CPL, only a 
few print options would produce 
legible print. 



The height and width questions 
allow you to tailor the physical 
dimensions of the characters to your 
own taste. The text positioning 
question helps to make room for 
other things that you may want to 
add when the banner is done. You 
are also given the option of using 
any ASCII or keyboard character to 
do the actual printing. This is 
followed by a routine to allow you 
to set up your printer with special 
control codes if desired. Just enter 
the ASCII values of the control 
characters, one after the other, and 
conclude by entering "999". The 
only option after this is to press the 
spacebar to stop printing. (The 
spacebar will only be acknowledged 
AFTER a character has finished 
printing. You may press the 
spacebar ahead of time and the 
ATARI® will remember.) 

Well, that about wraps it up. I 
hope you get as much use out of this 
program as I have. One final note: I 
sometimes have to remind myself 
that printer ribbons and print heads 
wear out quite fast when you go 
through 2000 sheets of printer 
paper. That's what happens when 
you foolishly ask someone if they 
would like a free computer-printed 
banner. I hope you don't have the 
same problem! 



Variables 

A: Miscellaneous keyboard input. 

B: Binary bit value counter. 

BIT: Bit number (0-7) in a byte of 

character data. 

BYTE: Byte number (0-7) of 

character set data. 

C: In line 50, print density 

modifier. In line 370, number of 

character in message string 

currently being printed. 



Continental 
ildventures 



4975 Brookdale Dept. 06 
Bloomfield Hills, Mich. 48013 
(313) 645-2140 



Continental Adventures presents three adventures and one graphics game 
for the Atari 400 and 800 computer owner 

The Ghost Tower — Combat with diabolical demons, 16K $16.95 

Town of Derango — Avenging the death of a father, 8K $16.95 

Talisman of Power — A search for the four keys of Gremlock, 16K. . . .$18.95 
Super Shape Builder — A graphics game for creating your own pictures. 
Joysticks reqd. 8K $14.95 



CH: Character height. Calculated 

width of a bit, in characters, when 

printed. 

CHS: Print characters. Defaults to 

a space for a zero bit in a normal 

character, a pound sign (#) for a 

one bit in a normal character, and 

vice versa for inverse characters. 

CH(7,7): An 8 by 8 array of bit 

mapped character data. (See Take 

Apart: ATARI® Quest, October, 

1981, SoftSide). Bit set = 1, bit 

reset = 0. 

CHR: In line 370, ASCII value of 

character number "C" in message. 

In line 380, adjusted value for 

character data search location. 

CPL: Character width of printer. 

40, 80, or 132 characters per line 

(CPL). 

CPOS: Memory location of the 

first byte in a letter's character set 

data. 

CW: Character width. Calculated 

height of a bit, in lines, when 

printed. 

FLAG: Inverse video flag. Used to 

reverse printing for an inverse 

character. Normal = 0, 

inverse = 1. 

HEIGHT: Print height. A value 

from 1 to 9 (10 to 90 percent of 

full-size print.) 

IN: Indent value. Number of 

spaces to indent printed characters 

based on print mode and print size 

descriptions. Preset for 40 CPL 

to 9. 

INS: Indent string. Filled with 

spaces and used with IN to 

produce a printed indentation. 

LC: Last character printed. Allows 

program to skip calculation of bits 

if next character to print is the 

same as the last one. Inverse bit 

data is considered the same as 

normal. 

LENGTH: Print length. A value 

from 1 to 9 (10 to 90 percent of 

full-size print). 

MSGS: Holds entire banner 
message. Dimensioned to the 
amount of free memory divided by 
four, to allow a large message. 
PM: Print mode. Text positioning 
information. Except for line 180, 
flush left = 0, centered = 1 , flush 
right = 2. 

X, Y: Miscellaneous FOR/NEXT 
loops. 

Z: Temporary storage for 
character set data bytes. 
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$ ATARI BASIC $ 

I 'ATARI Banner Machine' I 
$ Author: Alan J. lett $ 
i (c) 1982, SottSide $ 

$l$$$$$$$$t$$$$f$$$$$$$f$$|$$$ 

Print introduction. Turn on cursor. 
Special Note: The riglit-hand brace 
used tliroughout the program is our 
printer's representation of an ESC 
SHIFT CLEAR character. This appears 
on the screen as a left-bending-up- 
arrow. 

10 ? V THE ATARI BANNER IIACHINE" :^ '_ 
c) 1982, ALAN J. ZETT ' ;PQKE 752.0 

Clear variables, DIMension strings and 
arrays, open device number one for 
keyboard input, and assign strings. 

20 CLR :DIM CH(7,7.),CHI(3),IN»<;i32).RS 
G»UNT(FRE(0)/4)):0PEN #1,4,0. "K":? :'■ 
;CH«=" # ":IN»<:i32)=" " 

Set INS to all blanks. 

30 INI(l,li=" ■:IN«(2)=IN$U) 
Get printer width into CPL. 

100 ? "INPUT PRINTER LINE LENGTH:":;' " 
(40, 80, OR 132 CPL) ■::INPLIT CPL:'' 

If CPL = 40 then preset HEIGHT and 
LENGTH to 9 and skip to line 140. 

110 IF CPL=40 THEN HEIGHT^?;LENGTH=V:G 
OTO 140 

Get print height into HEIGHT. 

120 ? "INPUT BANNER HEIGHT (1 TO 9) "; 
: INPUT HEIGHT:? :IF HEIGHT<1 THEN 120 

Get print length into LENGTH. 

130 ? "INPUT BANNER LENGTH (1 TO 9) ": 
: INPUT LENGTH:? :IF LENGTHd THEN 130 

Compute print line width in characters 
for each bit, and assign it to CH. 

140 CH=(CPLt(HEIGHT/10))/8 

Compute print density adjusting ratio 
and store in C. 

150 C=10+7t(CPL>B0);C=5/C 

Compute number of lines to print for 
each bit, and assign to CW. 

160 C«=((CPLI(LENGTH/10))/8)tC 

If CPL = 40 then preset text position to 
centered. 




170 IF CPL^40 THEN P!1=2:G0T0 190 

Get text position print mode into PM. 

180 ■^ "INPUT TEH POSITION: !1=FLUSH L 
EFT, 2=CENTERE!). 3=FLUSH RIGHT) "j:! 
NFUT PHi? 

Adjust PM for computer's use in 
calculations. 

190 PM=P«-1 

Check for invalid print modes. 

200 IF PH<0 OR PH>2 THEN 190 

Compute Indent based on character 
fieight, printer width, and text position. 

210 IN=(CPL/2-INT(CH)t4)»PM-lt(PH=2):P 
OKE 752,1 

Print second menu heading. 

220 ';' " ESPECIAL PRINT INSTRUCTIONS; " 

Prompt for optional printing with a 
keyboard character. 

230 ? :? "DO YOU WISH TO PRINT THE BAN 
NER WITH A KEYBOARD CHARACTER? (Y/N)" 
j:GET tl.A:? 

If reply was "N" then 260. 

240 IF A=78 THEN 260 

Get keyboard character and modify 
CHS for printing. Turn off cursor and 
jump to line 310. 

250 ? :? "PRESS CHARCTER NOII . . ."!:G 
ET »1,A:CH$(2.2)=CHR«(A):G0T0 310 



Prompt for option of printing with an 
ASCII character. 

260 ? :? "DO YOU WISH TO PRINT THE BAN 
NER WITH AN ASCII CHARACTER? (Y/N)";: 
GET tl.A:? 

If reply was "N" then 290. 

270 IF A=7e THEN 290 

Get ASCII code, convert to character 
and modify CHS for printing. Turn off 
cursor and jump to 310. 

280 POKE 752,0:? :? "ENTER ASCII CODE 
";;INPUT A:CH$(2,2)=CHR$(A):P0KE 752,1 
:GOTO 310 

Check if computer's default print 
character is sufficient. If reply was "N" 
then loop back until print character is 
established. 

290 ? -.^ "I'LL USE MY OWN THEN, OK]";: 
GET #1,A:? :IF fl=78 THEN 220 

Set CHS to default print character. 

300 CH*(2.2)^"t" 

Print third menu heading. 

310 ? "JSPECIAL PRINT INSTRUCTIONS: " 

Prompt for option of sending control 
codes to printer prior to printing. 

320 " :? "DO YOU WISH TO SEND ANY SPEC 
lAL CODES TO THE PRINTER BEFORE I STAR 
T^ iV/N)":6ET 11, A 

If reply was "N" then 360. 
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330 IF A=7B THEM 3i0 

Turn on cursor and print escape 
message. 

340 POKE 752,0:? :? "ENTER 999 TO END 



Get printer control code. Check wtiether 
it corresponds to the menu's escape 
code; if not, print to printer and ioop 
for more. 

350 INPUT A: IF A0999 THEN LPRINT CHR» 
(A)j:BOTO 350 

Print fourth menu heading, turn on 
cursor, and Input message in IMSGS. 
Turn off cursor and set last character 
printed to 999. 

360 ^ " JENTER BANNER MESSAGE: "iPOSITlO 
N 2.11:? "MESSAGE";! POKE 752,""0! INPUT M 
SE«:POKE 752,1:LC=999 

Set up "C" to loop through characters 
in message (MSGS). Get ASCII value of 
character "C" into CHR and reset 
Inverse video flag. Checl( if character Is 
inverse; if so, set flag and adjust the 
value of CHR. 

370 FOR C=l TO LEN(I1S6*):CHR=ASC!I1SG»( 
C,C)):FLAG=0:IF CHR>127 THEN FLAG=1:CH 
R=CHR-128 

Modify character value according to the 
mixed-up way that ROM fwlds character 
set data. 

380 IF CHR<94 THEN CHR=CHR-32»(CHR>31) 
+64»(CHR<32) 

Get the memory position of the first 
byte of charcter data into CPOS. 

390 CP0S=CHR«8+ (PEEK (756) J256) 



Print printer ptocessing display heading, 
total banner message, and portion of 
message printed. 

400 ? ■) YOUR BANNER HESSAGE :':? :? MS6 
«!? :? ' PART PRINTED SO FAR :':? :? MSG 
»(1,C) 

Print expanded visual display heading 
and check if the last character is the 
same as the next one. If so, skip bit 
processing routine. 

410 ? :? ' NORKING ON LETTER ; '!? ;1F LC 
=CHR THEN 490 



Bit processing routine. Takes all 
bytes of a letter's character data 
and breaks them down into 64 bits 
which are then bit mapped and 
stored In an 8 by B array In CH(n,n). 



420 FOR ){=0 TO 7:Y=-l:B=25i 

430 Z=PEEK(CPOS+X) 

440 B=B/2:Y=Y+1:IF Y>7 THEN 480 

450 IF Z-B<0 THEN CH(X,Y)=1:G0T0 470 

460 IF Z-B)=0 THEN CH()(,Y)=2:2=Z-B 

470 GOTO 440 

480 NEXT X 

Plot character bit map with normal 
and Inverse spaces to produce an 
expanded form of the character 
currently under processing. Also 
reset ATARI®'s attract mode flag. 

490 FOR X=0 TO 7: FOR Y=0 TO 7 

500 IF FLAG=0 AND CH(X,Y)=1 OR CH!X,Y) 

=2 AND FLAG=1 THEN ? " "; 

510 IF FLA6=0 AND CH(X,Y)=2 OR CH(X.y) 

=1 AND FLAG=1 THEN ? "J; 

520 NEXT Y:? :NEXT X:POKE 77,0 

Prompt for halting of banner print, 
and erase any keyboard input by 
nulling out the "last-key-pressed" 
memory location. 

530 POSITION 5,23:? "PRESS SPACEBAR TO 
STOP PRINTING': !POKE 764.255 

Set BIT to cycle through all eight 
bits of character data. Set up X to 
print the correct number of lines for 
a given character width. 

540 FOR BIT=0 TO 7: FOR X=l TO CM 

If flush left was not chosen, print 
the leading Indent. 

550 IF PHOO THEN LPRINT INtd.IN); 

Set BYTE to cycle through all eight 
bytes of character data. 

560 FOR BnE=7 TO STEP -1 

Set up Y to print the correct number 
of characters for a given character 
height. 

570 FOR V=l TG CH 

Print proper character for any bit 
and flag combination. 

580 LPRINT CH«(CH(BYTE.BITi+FLAG,CH(BY 
TE.BIT)+FLAG;;;NE.n Y 



Do all bytes, advance paper to next 
line and finish character. 

590 NEXT BYTE:LFRINT :NEXT X;NEXT BIT 

If no key has been pressed, then 
jump to line 630. 

600 IF PEEK (764) =255 THEN 630 



Otherwise get the character into A 
and erase character from memory. 



610 GET «1,A:P0KE 764,255 

If the key was the spacebar, then 
jump to line 640. 



620 IF A=32 THEN 640 

Continue printing banner with the 
next letter in MSGS. 

630 LC=CHR:NEXT C:60T0 660 

Make sure operator wants to stop 
printing. If reply Is "Y" then POP the 
"C" FOR/NEXT variable and jump to 
line 670. 



640 ? "JARE YOU SURE YOU WANT TO QUIT? 
(Y/N)":GET ll,A:IF A=89 THEN POP ;GOT 
670 

Otherwise, jump to line 630. 

650 GOTO 630 

Print completion message. 

660 ? '.' ALL DONE! ' 

Prompt for another banner. 

670 ? :? 'WANT TO MAKE ANOTHER? (Y/N)" 
:GET 11, A 

if reply was "N" then say goodbye, 
turn on cursor and END program. 

680 IF A=78 THEN ? "}0K| BYE!":POKE 75 
2,0:END 

Check If next banner is to use the 
same parameters as the last. If 
reply Is "N", then rerun program. 

690 ? :? "USE SANE PARAMETERS? (Y/N)'; 
:GET »1,A:IF A=78 THEN RUN 

Otherwise, jump to 360 for next 
message. 



700 GOTO 360 



® 
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Word Processing Programs 
for the ATARF 



A review by Sheldon Leemon 



Text Wizard 

from Datasoft, Inc. Requires 32K. 
Suggested retail price: $99.95. 

Letter Perfect 

from LKJ Enterprises. Requires 
24K. Suggested retail price; $149.95. 

Word Precessor 

from Atari, Inc. Requires 48K. Sug- 
gested retail price: $149.95. 

One of the nice things about own- 
ing a personal computer is that new 
applications always seem to be turn- 
ing up. An application which seems 
to have gained sudden recognition 
among microcomputer owners is 
word processing. 

Word processing software allows 
a person to prepare a document by 
typing the words onto the computer 
display screen, making all editing 
corrections on the screen, and then 
using a printer to print the docu- 
ment on paper. Regular computer 
disk storage is used for preserving 
the document on file for later use. 

This method of document 
preparation provides a dramatic in- 
crease in ease and efficiency over the 
old method of composing a rough 
draft at the typewriter, proof- 
reading the draft, and then typing 
the finished copy over again. Who 
in his right mind would opt for 
repeated entry of every keystroke 
necessary to prepare a document, 
when offered the alternative of typ- 
ing the document once, and entering 
only those changes which are 
necessary? 

Part of the reason for the sudden 
rise in interest in word processing 
software is the recent appearance of 
relatively inexpensive high quality 
dot-matrix printers. The popularity 
of printers Uke the Atari 850/Cen- 
tronics 737 and Epson MX-80 is 
such that although ATARI® com- 
puters are being marketed primarily 
as consumer products, there are 
now three popular programs for 
pursuing this more serious applica- 
tion on the ATARI®. These pro- 
grams are Text Wizard, Letter 



Perfect, and Atari's own Word Pro- 
cessor. Each program will work 
with the two brands of printers 
mentioned above, although cer- 
tain features are implemented for 
only one printer or the other, but 
not both. 

All of these programs have in 
common two major functions. The 
first is to allow the user to set down 
thoughts in words, and then to 
make changes for the purpose of 
editing content, as well as correcting 
grammar and spelling. The second 
function is to establish the format in 
which those words will appear on 
paper. This includes such matters as 
margin settings, spacing, and inden- 
tation. Other functions include sav- 



"The method of choosing 
which of the major or minor 
program functions will be per- 
formed varies significantly be- 
tween these programs." 



ing text to a disk file, and loading in 
a previously-prepared text. In 
general, Text Wizard and Letter 
Perfect handle these tasks in a 
similar fashion, while a somewhat 
different approach is taken by Word 
Processor. 

The method of choosing which of 
the major or minor program func- 
tions will be performed varies 
significantly between these pro- 
grams. Text Wizard is completely 
command driven. This means that it 
does not prompt the user with menu 
selections to change functions, but 
rather requires that the user enter a 
certain combination of keystrokes 
to make the change. Word Pro- 
cessor, at the other extreme, has 



several menu levels that help guide 
the user through every decision. Let- 
ter Perfect takes the intermediate 
position, offering one main menu 
that allows switching between major 
functions, but using keystroke com- 
mands for editing and print for- 
matting functions. 

Which approach is preferable is 
mostly a matter of personal taste. 
Some people like the convenience of 
menu prompts, as opposed to hav- 
ing to learn a number of command 
sequences. Others find that once 
they have have used the program for 
a while, the menu prompts become 
irritating, and prefer to learn a few 
commands which will get them in- 
stant results. 

Screen Display 

Another example which illustrates 
the differences between the systems 
employed in the various programs is 
the way in which the screen display 
is handled for text editing. The 
problem presented is that the 
ATARI® screen display is limited to 
40 characters per line, while the 
printed line may contain up to 132 
condensed-print characters. 

In the case of Text Wizard and 
Letter Perfect, the approach is to let 
the computer worry about where to 
start a new line, and to concentrate 
on keeping the screen display 
readable, rather that having it cor- 
respond exactly to what is being 
printed. To that end, both of these 
programs use a wrap-around tech- 
nique, which consists of moving any 
word that would be split at the end 
of a Hne to the beginning of the 
next hne. 

Word Processor, on the other 
hand, uses a "moving window" ap- 
proach. This looks on the screen as 
a window on a larger area that in- 
cludes the entire line of print. A row 
and column marker in the upper 
right hand corners lets you know the 
current position of the cursor. 
When you get past 40 columns on 
the screen, the display scrolls to the 
left, simulating movement of the 
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K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Some time ago SoftSide began 
inviting its readers to submit "One 
Liners" — self-contained single- 
line programs for the TRS-80®, 
Apple, or ATARI® which would 
provide a continuously changing 
graphics display. The response has 
been excellent, and we're still 
looking for more submissions. 

Now we have a new challenge 
for you as well: "K-Byters." A 
K-Byter is a BASIC program 
which fits into IK (1024) bytes of 
program memory. There aren't 
any restrictions on the nature of 
the program, other than its size. It 
can be a graphics display, a game, 
a mini-adventure, or anything 
your imagination and program- 
ming skills can create. 

Note that the program does not 
have to RUN in IK of memory; it 
can use as much RAM for arrays, 
strings, graphics mapping, etc., as 
you need. We'd prefer that it be 
able to run in a 16K system, but 
this is not an absolute limit. 

Here then are the official rules: 

1 . The program must be written 
for the Apple, TRS-80®, or 
ATARI®, entirely in BASIC 
(although it may create and call 
Machine Language routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be sub- 
mitted on tape or disk, accom- 
panied by your name, address, 
phone number, and a brief written 
description of its operation. 

4. The tape or disk will be 
returned only if accompanied by a 
self-addressed envelope with ade- 
quate postage AFFIXED (do not 
send money). 

5. Winners will have their pro- 
grams published in SoftSide and 
will receive a $10 software cer- 
tificate for their programming 
excellence! 

Send submissions to: 

K-Byters, c/o SoftSide 
6 South Street 
MHford,NH 03055 
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window to the right. This allows you 
to see the position of each word on 
the screen as it will actually appear 
on the printed page. 

Obviously, such an approach will 
be advantageous when it is impor- 
tant to know the exact layout of the 
page before it is printed. One such 
case would be where the user is try- 
ing to set up information in a co- 
lumnar format. This task is difficult 
for those using Letter Perfect, and 
even more difficult for users of Text 
Wizard, as that program does not 
even have tab stops which can be set 
by the user. 

However, the window concept 
does have its drawbacks, as only a 
portion of each sentence is displayed 
on screen at a time. For those ap- 
plications where the exact layout is 
not critical, the ability to reread 
previous sentences without having 
to scroll the screen may be more 
valuable than being able to deter- 
mine the exact position of each 
word on the page. 

Text Editing 

The actual process of text editing 
is very similar to the method of 
screen editing used when writing 
programs on the ATARI®. If there 
is something on screen which you 
wish to change, you use the editing 
keys to move the cursor to the cor- 
rect spot, to insert lines or spaces, 
delete lines or spaces, or just type 
over the old text. 

While normal ATARI® cursor 
placement is handled by the arrow 
keys, these programs feature other 
commands to help you get to the 
spot you wish to edit more quickly. 
All have commands that allow you 
to go to the top of the text or the 
bottom of the text. Letter Perfect 
and Word Processor also have com- 
mands that let you go to the begin- 
ning of the line or the end of the 
line. Each program allows you to 
scroll the text up or down, although 
the means of scrolling up is rather 
clumsily implemented in Letter 
Perfect. 

Letter Perfect and Word Pro- 
cessor allow you to delete lines or in- 
sert blank lines much as is done in 
regular ATARI® editing. When you 
move the text around this way in 
Letter Perfect, the screen 
wrap-around is not preserved, and 



must be restored with a separate 
command. 

The method of inserting text is 
somewhat different in Text Wizard. 
Instead of inserting fixed-length 
blank lines, it has an Insert mode, 
which allows you to move the cursor 
to a spot and add text in that spot 
while the rest of the text is scrolled 
down. Screen wrap-around is 
preserved at all times, which keeps 
the appearance neat, but which 
makes some editing features work a 
bit slower than they normally 
would. 

The Insert mode is an extremely 
convenient feature, and is also 
found on Word Processor, but not 
Letter Perfect. Word Processor also 
has a number of different options 
for deleting a specific word at a 
time, part of a line, an entire line, or 
a block of lines. UnHke the other 
two programs, it will allow you to 
restore a line that has been edited, 
back to its original state. 

Advanced Editing Features 

Advanced editing features are 
available in these programs which 
allow moving around and dupli- 
cating blocks of text, much like "cut 
and paste" editing on paper, only 
without the mess. This is ac- 
complished by inserting a 
designated block of text into a buf- 
fer, and then transferring the con- 
tents of the buffer to a specific area 
of text. The buffer features of Let- 
ter Perfect and the Word Processor 
appear to be a bit more flexible than 
Text Wizard, which allows simple 
moves of short blocks of text rather 
easily, but does not allow more 
sophisticated operations such as 
combining blocks of text in a buf- 
fer, or holding text in the buffer for 
long periods of time. 

Another advanced function that 
is supported in all three programs is 
the Search function, which moves 
the cursor to the each place in the 
text where a designated word or 
phrase occurs. This can be com- 
bined with an even more powerful 
Replace function, which will replace 
each occurrence of the word or 
phrase with another word or phrase. 
Such a function can be very valuable 
for bad spellers, for example, who 
consistently misspell the same word. 
In Letter Perfect and Text Wizard, 
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the user must verify each change 
(the cursor will move to the word, 
and you have to enter a keystroke 
before it will be replaced). Word 
Processor offers the choice of 
Replace upon verification, or 
without verification. 

Formatting the Printout 

The second major function which 
the user will perform with these pro- 
grams is setting up the format in 
which the document is to be printed. 
Both Letter Perfect and Text 
Wizard have default formats which 
allow the document to be printed 
neatly without special effort by the 
user. The programs will 
automatically set margins, right- 
justify (insert spaces within the line 
so that each line ends exactly at the 
right margin), and will give a form- 
feed command to the printer at the 
end of the page, to advance the 
paper to the top of the next sheet. 

Of course, there are many options 
that can be selected in place of the 
default values. This selection is ac- 
complished by the use of what are 
called "format lines." These are 
lines of characters imbedded in the 
body of the text which give com- 
mands to the printer. Adjustments 
can be made such as setting left, 
right, top, and bottom margins; line 
spacing; turning off justification; or 
using one of the printer's alternate 
character fonts. These commands 
can be given as text is entered, or 
can be added afterward, allowing, 
for example, changing margins to 
allow for indentation of certain 
paragraphs. 

In Text Wizard, right and left 
margins are set in dot widths, in- 
stead of character widths, which 
allows for very fine adjustment. 
Also, unlike the other two, Text 
Wizard permits line spacing to be set 
by half-spaces. One of the nice ex- 
tended functions available in all 
three programs is the ability to 
designate page headings, as well as 
automatic page numbering at either 
the top or bottom of the sheet. 

Print formatting is done a little 
differently on Word Processor. A 
menu option allows setting of 
margins, line spacing, etc. This can 
be done before entering text, and 
the result will be that the screen 



display will be an exact representa- 
tion of how the printed page will 
look. If you later decide to change 
the format, a menu option allows 
you to change the whole document, 
or any page. Since files are saved as 
a series of separate pages, there are 
also depagination and pagination 
commands to change the allocation 
of text on each page. This allows ex- 
tremely flexible layout options, but 
takes a little more effort than the 
other systems, which leave paging 
and layout to the computer. 

Finally, there is the actual print- 
ing. Letter Perfect has the most flex- 
ible system. It allows you to print 
single or multiple copies of any page 
or combination of pages. While 
Word Processor also allows these 
options, you cannot print a docu- 
ment straight through; the program 
pauses at the end of every page and 
prompts you to advance the paper 
to the top of the next sheet and type 
a carriage return. Text Wizard only 
allows you to print straight through 
from the beginning or middle of text 
to the end, and only will let you 
print one copy at a time. 



Documentation 



There are some other factors, not 
related to the software itself, that 
potential purchasers of these pro- 
grams will want to consider. The 
first is the documentation. Word 
Processor's is by far the most 
elaborate. It consists of an instruc- 
tion manual, a reference guide, 
system hook-up instructions, an 
audio instruction tape, and a 
diskette of sample material, all in a 
colorful vinyl binder. The manual 
assumes that you've never seen a 
computer, and takes you step by 
step from plugging it in to putting 
the paper in the printer. The others 
are on a less ambitious scale, but are 
clearly written and easy to follow. 

One aspect of Letter Perfect's 
manual that is somewhat disap- 
pointing is that it contains a fairly 
large number of typographical er- 
rors. Although the program itself 
has been revised, the body of the 
manual remains the same as for the 
earlier version. A single update 
sheet at the beginning explains the 



new features which are available. 

Text Wizard's manual takes the 
user through a sample editing ses- 
sion step by step. This approach is 
very reassuring to the novice, and is 
a fine teaching tool. However, the 
manual does leave some questions 
unanswered. For example, it doesn't 
fully explain the function and prop- 
er structure of the text-formatting 
lines. Of all of the complaints I have 
heard about Text Wizard, most 
have involved an inability to use one 
or more printing functions as 
described, and most of these failures 
resulted from improper placement 
of the commands in the text- 
formatting lines. 



Interfacing Programs 

Another area of interest to the 
user is interfacing this program with 




duplicating service 

307 West Main Street 
Maple Stiade, NJ 08052 

(609)667-1667 



• AMP "Data-sette" blank 
cassettes for digital use 

• Cassette Storage Boxes 

• Cassette Labels - 
Custom printing & blank 

• Custom Record Album 
production from your tapes 

• Stereo and Spoken Word 
cassette duplication 

Call or write to: 




(or mors Information. 



All cassette work at 
AMPR.&D. is custom work 
to fit your needs. 
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PROGRAM FEATURES 


5 

■ 

Word Processor 


Text Wizard 


Letter Perfect 


Cursor control 


XXX 


all but begin/ 


XXX 


(one space up, down, 




end line 




right, left, begin 








line, end line, last 








page, next page, top 








of text, bottom of text 








Scrolling text window 


XXX 






Delete word 


XXX 






Restore deleted text 


XXX 






Auto-insert 


XXX 


XXX 




Move text 


XXX 


XXX 


XXX 


Duplicate text 


XXX 


XXX 


XXX 


String search 


XXX 


XXX 


XXX 


Search and Replace 


XXX 


on verify only 


on verify only 


Print margin control 


XXX 


XXX 


XXX 


(top, bottom right, left) 








Subscripts, Superscripts, 


825 


825 


MX-80-(-Graftrax 


Underlining 








Right justify 


not PS set 


XXX 


XXX 


Double-column printing 


825 


825 


825 


Headers and footers 


headers 


XXX 


XXX 


Page numbering 


XXX 


XXX 


XXX 


Database merge 






XXX 


Output control codes 


XXX 




XXX 


Print selected pages 


XXX 




XXX 


Print multiple-page copies 


XXX 




XXX 



others. For example. Letter Perfect 
has mail-merge capabilities with its 
sister program. Data Perfect. This 
means that mailing lists or other 
databases created with Data Perfect 
can be merged with Letter Perfect 
form letters, so that the computer 
will literally fill in the blanks in 
these form letters with data pro- 
vided by files created with the 
database. 

Datasoft is working on a revised 
Text Wizard that will allow merger 
with files created by File Manager 
800, an excellent database program 
by Synapse Software. This revised 
version, which should be available 
in this month or shortly after, will 
also add some features that take ad- 
vantage of the Graftrax ROMs for 
the Epson printers, such as 
underlining and subscripting. These 
features are already implemented in 
the revised version oi Letter Perfect . 



Word Processor has no capabilities 
for merging data from separate data 
files into text. 

In the same vein, the prospective 
user should consider that Letter 
Perfect files are not DOS compat- 
ible. This means that it cannot han- 
dle some of the extended applica- 
tions that the other programs per- 
mit, such as using the Search and 
Replace function in editing BASIC 
programs, or preparing text files for 
uploading via modem to a computer 
bulletin board. 

From the detailed comparisons 
given above, a general picture 
begins to emerge of the differences 
between these programs. Word Pro- 
cessor is very menu-oriented and 
page-oriented. It allows the most 
versatility and accuracy in page 
layout, at the expense of some con- 
venience. Although it is the only 
program of the three that will not 



right-justify the proportional type 
of the Atari 850/Centronics 737, 
this is offset to some extent by the 
accurate representation of page 
layouts which allows the user to 
hyphenate words as if using a 
typewriter. The biggest failing of 
Word Processor may be its inability 
to type a multipage document 
straight through. 

Letter Perfect has nice print op- 
tions, allows the user to output com- 
mand codes directly to the printer, 
but is somewhat lacking in its user- 
interface. For example, the program 
title that always occupies the top 
line of the editing screen is distract- 
ing. And the multitude of control 
commands are a little difficult to 
remember. Its files not being DOS 
compatible precludes its use for 
some functons, as outlined above. 

Text Wizard, although slightly 
less versatile than the other two, is 
extremely easy to use. The com- 
mand codes are well thought out, 
and are logical extensions of the 
computer's own system of editing 
commands. Such features as the 
screen border changing colors to re- 
mind you when you are in Insert 
mode, or when you are running out 
of screen memory, lend a nice 
touch. Its features are sufficiently 
powerful for most applications, and 
its ease of use would probably make 
it the right choice for applications 
that did not require special page 
layouts or multiple column printing. 
The fact that it costs less than the 
others doesn't hurt, either. 

While the above programs pose 
no serious threat to the 
sophisticated and expensive stand- 
alone word processors used by 
businesses, they are all good enough 
to make you want to throw away 
your typewriter. Any ATARI® 
owner who has an 80-column 
printer should seriously consider the 
purchase of one of these programs 
as a relatively painless way of great- 
ly expanding the utility of his or her 
system. You might as well become 
familiar with word processing now, 
because as the price-to-performance 
ratio of computers and printers con- 
tinues to rise, and software 
packages such as these add features 
to rival the expensive stand-alone 
systems, there is every possibility 
that microcomputer word process- 
ing systems will replace the 
typewriter entirely. © 
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Micro Adventure 



A TRS-80® K-Byter by J. Joseph Felten, Corydon, IN 

The goal of this real-time graphics adventure is quite 
simple: to survive. You are being pursued through a 
dungeon by a deadly dragon, and you must move 
yourself around using the arrow keys. Among the many 
obstacles which are scattered around the screen, there 
are treasures which you are trying to collect along the 
way. When you've picked up as many of these as you 
dare, you attempt to make your escape through the door 
of the dungeon. 

You are displayed on the screen as an "O", the 
dragon as a "#". Obstacles are shown as irregular 
graphics blocks, and the door to safety is a solid rec- 
tangular block near the top center of the screen. An 
" = " shows the location of a staircase leading 
downward. (The obstacles increase as you descend.) In 
addition, one of the obstacles will occasionally change 
into a magical sword (shown by an arrow) which is 
capable of killing the dragon. 

The author wishes to acknowledge Steve Geswein as 
the author of the original Pet version of this adventure. 



I 'HICRO ADVENTURE 
BV J. J. FELTEN 
5 CLS:INPUT"LEVEL"i5 

10 CL5:P=15360;A=64:FORI=lTORND(S»20):POKERND(1023)tP,173!NE)(T:P 
0KE15456, IBB: J(=2: Y=32!K=RND ( 15) : Z=RND{63I iPOKEP+fllX+V, 79 
20 FORI=1T05:POKERND(703)+15680,42:MEXT 



JO P0KERND(960)+15423,61:S0=RND(9601+15423:P0KES0,93:PaKEP+fl»N+Z 

,35 

100 J=PEEK(14400);IFJ=0THEN200 

105 IFRND(0)<.05flNDI1=0THENPOKES0,93 

110 U=0:N=-1:IFRND(0)<.05THEN200 

115 !FJANDfl,N=Y+lEL5EIFJAND32N=Y-lELSEIFJflND16N=)(+l:U=lELSEIFJflN 

D8N=X-1;U=1 

135 IFUANDN<OTHENN=0 

140 IFUANDN)15THENN=15 

145 Q=P+AU+N:IFUTHENQ=P+A«N+y 

147 E=PEEK{Q) 

150 IFEM2T=T+lELSEIFE=lBaTHEN1000ELSEIFE=173THEN200ELSEIFE=93N= 

1ELSEIFE=35THEN1100ELSE1FE=61B=S+1:H=0;M=0:BDTD10 

165 P0KEP+AJ)(+Y,32:P0KEQ,79:IFUTHENX=N:ELSEY=N 

180 IFY<lTHENX=l(-l:Y=Y+fl 

190 IFY>ATHEN1(=X+1:Y=Y-A 

200 IFHTHENIOO 

210 IFRND(0)<.3THENPOKES0,173 

220 IFRNDtOX.lTHENlOO 

230 l(l=H-X:Yl=Z-Y:IFn=0ftNDYl=0THEN1100 

240 IFABS(Xl)>flBS(Yl)THENN=-H-SBN(l{l):U=l:ELSEN=Z-SBNtYl):U=0 

250 PDt(EP+AIH+Z,32:IFUTHENH=N:BOT0290 

270 1-H 

280 IFZ<1THENH=((-1:Z=Z+A 

285 IFZ>flTHENN=ll+l:Z=Z-A 

290 POKEP+AtH+Z,35!BOT0100 

1000 PRINTJ19,"Y0U HIN KITH"T°TREflSURES":END 

1100 IFI1=0THEN1150 

1110 IFRND(0)>.9THENPRINTJ24,"THE SNORD BROKE" :PRINT:60T01150 

1130 PDKEP+fl«l(+Z,33:P0KEP+A«H+Z,32:H=l:B0T0100 

1150 PR1NTJ82,'Y0U LOSE NITH"T"TREASURES":FORI=1T02000:NEXT!RUNG 
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by Stephen Milliken 

Screen Print is a routine that 
works with Level II, Disk 
BASIC, TRSDOS, NEWDOS 
and probably any other TRS- 
80® operating system. It is in- 
cluded as a bonus program on 
this month's TRS-80® DV. 

One of the first things most 
people look for when they get 
a printer is some method to 
enable them to get a screen 
listing. Some printer manuals 
give simple BASIC routines to 
do this, but they are slow and 
cumbersome, having to be in- 
cluded in a BASIC program. 

NEWDOS, with its JKL 
function, satisfies this need 
somewhat, but even here 
things don't seem right. As it 
is, the JKL function does not 
support graphics, and 
although this can be corrected 
with various ZAPS or 
POKES, there is still some- 
thing wrong. The "something 
wrong" is that 16 lines on the 
printer just don't look like 16 



lines on the screen. The aspect 
ratio, the ratio of a picture's 
width to its height, is not right. 

Here is a BASIC program 
that will correct this problem 
by POKEing a relocatable 
Machine Language program 
into memory which will give 
you a real-time "extended 
graphics" screen print func- 
tion. This function, activated 
by pressing the SHIFT and 
down-arrow keys, will print 
the contents of the screen on 
32 printer lines. This corrects 
the aspect ratio and the printer 
listing is now approximately 
the same size as the screen. 

This is made possible by us- 
ing a technique I call "ex- 
tended graphics." What this 
means is that for each screen 
line, two printer lines are 
made. The first line includes 
all non-graphics characters 
and the top of the "extended 
graphics." The second line 
contains just the bottom of the 
"extended graphics." Try this 



function with any sketch or 
graphics program (i.e., Old 
Glory, So/tSide, June, 1981), 
and you will appreciate it. 

The BASIC program when 
RUN, will check MEM SIZE 
and adjust it to accommodate 
the Machine Language code. 
The Machine Language code is 
relocated using the address 
figured out above as a base 
and is POKEd into the now- 
protected memory. Because of 
this, no MEM SIZE has to be 
set unless some other code is to 
be used also (i.e., the sound 
routine in "COMMANDing 
BASIC", SoftSide, Novem- 
ber, 1981). The one exception 
is if the user will be jumping 
back and forth between Disk 
BASIC and the disk operating 
system, see below. 

How to use Screen Print: 



All: Load any other non- 
relocating Machine Language 
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routines first. This routine will 
load below them. 

Level II: 

1) RUN program. 

2) Shift-down-arrow ac- 
tivates, BREAK aborts. 

TRSDOS: 

A) If only Disk BASIC to be 
used, then same as Level II. 

B) If jumping back and 
forth between Disk BASIC 
and TRSDOS: 

1) Set MEM SIZE 100 less 
than top of memory. * 

2) RUN program. 

3) Each time you re-enter 
Disk BASIC answer "MEM 
SIZE?" with 200 less than 
number calculated in 1. 

4) Shift-down-arrow ac- 
tivates, BREAK aborts. 

NOTE: In TRSDOS, hitting 
BREAK sometimes causes 
strange things to happen. Typ- 
ing DIR when you enter seems 
to cure this problem. 



NEWDOS: 

1) RUN program. 

2) When entering Disk 
BASIC set MEM SIZE 200 
less than end of memory. * 

3) Shift-down-arrow ac- 
tivates, BREAK aborts. 

NOTE: JKL function still 
works, so what I do is to use 
that for any listing without 
graphics, and use shift-down- 
arrow for any listing with 
graphics. 

*If other Machine Language 
programs are loaded above 
this one, make sure you add 
appropriate number to this 
figure. 

I have found that the pro- 
gram does work with the 
lower-case driver I have by: 

1) RUNning the BASIC pro- 
gram first, following instruc- 
tions above. 

2) Running the lower-case 
driver. 



3) For disk operating 
systems make sure you now 
save enough memory on re- 
entry into BASIC for both the 
driver and the screen print 
function. 

The program is set for an 
MX-80 in non-TRS-80® mode. 
Here are some modifications: 



A) If your printer uses 
standard TRS-80® code: 

1) Change number in line 
30 from 18232 to 17772. 

2) Change lines 210 and 
260 to: 

210 DATA 0,0 
260 DATA 0,0 

B) If your printer does not 
support graphics characters: 

1) Change number in line 
30 from 18232 to 17974. 

2) Change lines 210 and 
260 to: 

210 DATA 62,46 

260 DATA 62,32 © 
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by Ronald M. Tutone 

Gothic Letter Printer is a banner- 
making program for a TRS- 
80® with a minimum of 32K RAM 
and a 132-column printer. 



Gothic lettering originated in 
western Europe around the 12th 
through the 15th century. Gothic 
Letter Printer recreates this 
beautiful and outstanding letter- 
ing form. 

To produce your sign, follow 
these two steps: 

1 . Have your printer set for con- 
densed mode (132 characters per 
line). 

2. Type in your message. 

Valid gothic characters are the let- 
ters A-Z, numbers 0-9, and the 
following punctuation: exclamation 
point, question mark, period, co- 
lon, semicolon, comma, hyphen, 
left and right parentheses, double 
quotes, apostrophe, dollar sign, and 
ampersand. 

Special note: Because of the very 
large amount of data used in this 
program, we suggest that before 
saving the program in its final form, 
you first type the following one liner 



from the command mode (READY 
prompt): 



RESTORE: CLS: A = 0: FOR X= 1 
TO 1506: READ A$: A = A + LEN 
(A$): NEXT X: IF A < > 16962 
THEN PRINT "DATA BASE 
ERROR!" ELSE PRINT "THE 
DATA APPEAR TO BE O.K." 

After you press ENTER, the com- 
puter will go blank for a while and 
then print a message. If you get the 
"DATA BASE ERROR!" message 
then there are some data in your 
program which are not the same as 
is Hsted in the magazine. If you get 
the "DATA APPEAR TO BE 
O.K." message then your data 
should be the same as listed in the 
magazine. However, it is possible 
for the data to appear correct, and 
still contain a problem. A test run of 
all valid characters will show for 
sure if there is anything wrong. 

Variables 

A$(n): Contains one gothic letter 
in coded form. A$(n) is decoded to 
create one gothic letter. 
C$: Character used to create the 



sign. Value will be the "delete" 
character. C$ may be changed by 
the user if desired to any alpha- 
numeric character. 
CT: Number of lines in one gothic 
letter. 

DT$: List of the valid gothic 
characters. It is used to check the 
user's message for invalid 
characters. 
I, II, J: Counters. 
K$: Advance paper or restart 
program. 

L$: Get one character from user's 
input. 

MS$: User's message. 
NLT: Number of valid input 
characters. Value will be 50. 
NU: Number of blanks or 
characters in part of one gothic 
letter line. 

Nl$, N2$: Used to derive NU 
from a string of numbers into 
numeric values. 

QUOTE: Determine opening or 
closing quotation marks. Value 
will be 1 or 0. 

S$: Character from the user's 
message for decoding. 
ST$: One line of the gothic letter 
to be printed. 

X: Position on screen where user 
input is read. 
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I 'GOTHIC LETTER PRINTER' t 
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t AUTHOR: Ronald H. Tutone 1 
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tttttiutitttttuiitntttiitx 




^^v^ ^ 




Reserve memory space and define variables. 




^L^^^^H^ 


^^^^^V;, fu 


100 CLS:CLEAR1700:NLT=50 






150 DmDT»(NLT),A»(60),PTR(256) 
Display program introduction. 








200 PRINTJ335,CHR$(23);"INTR00UCINB" 






250 FORI=1T01SOO:NEXT:CLS:FORI=1T0500:NEXT 
300 PRINT8332,CHR$(23);"THE BOTHIC LETTER" 
350 PRINT9469,CHR$ (23); "PRINTER" 












AOO PRINT8585,CHR»(23)|'BY RONALD H. TUTONE" 




450 FQRI=lTDNLT-l:READDT»(I)!NEni:RESTORE 


', PLEASE RETYPE)"; :60T0475 


475 FORI=1T02000:NEXTI:CLS 


1400 NEHI 


Initialize variables. 


Display fieadlng. 


550 QU0TE=0!Ct=CHR$(127) 


1450 CLS:PRINT:PRINTTAB!11)"G T H I C LETTER P R I 




N T E R" 


Display instructions. 


1500 PRINTTABdD'l » M » « » M t « « 1 » 1 t 1 t 1" 




1550 PRINTa345,"Y0UR MESSAGE" : PR I NTS409, " ■!PRIHT:PRI 


600 PRINT:PRINTTAB(10)"S T H I C LETTER P R I N T E 


NTTAB(ABS((3I-(LEN(MS$)/2))))MS$ 


R" 

650 PRINTTAB(10)"» < I « 1 » » t » t t t ♦ t t t ♦ t f 


Main program loop. Get one cfiaracter from operator's 
message. 


700 PRINTJ264, "DIRECTIONS FOR CREATINE A BEAUTIFUL GOTHIC SIGN:" 




750 PRINT:PRINTTAB(3)"SET PRINTER TO CONDENSED MODE i TYPE THE 11 


1600 FORII=lTOLEN(MS«):Si=MID${MS$,II,l) 


ESSAGE IN HERE." 


1650 IFS»=" "THENFORX=lT015:LPRlNT:NEXT)(:NEniI:60T01800 


800 PRINT8985,"< HIT ENTER >"i:PRINT8588,CHR$(94)i 


1700 B0SUB2000 




1750 NEXTII 


Initialize variables. 






Offer manual paper advance or restart of program. 


850 1{=589:I1S»="":CT$(50!=CHR$(34) 






1800 PRINT9911,STRING$(34," ");:PRINT8787,"< HIT 'ENTER' TO REST 


Get input from operator. 


ART >"| 




1850 PRINT8848,"< DEPRESS '"CHR»(91)"' TO ADVANCE PAPER >"i 


900 PRINT8)(,CHR»(93);:L»=INKEY«:IFL»=""THEN900ELSEIFL$=CHRi(13)T 


1900 FORI=lT010000;K«=INKEY»:IFK$=CHR$(I3)TtfNRESTORE:60T0475ELS 


HENllOO 


EIFPEEK(1516B)=8THENLPRINT 


950 IFL»=CHR» (8) ANDLEN (MS$ t .VOTHENPRINTSX , " " ; : )(=M : L»=" " : HS»=LE 


1950 NEni:CLS:PRINT"TYPE 'RUN' TO RESTART PR06fiAH":END 


FTJ (NS», LEN (HS$ ) -1 ) : BOT0900ELSEIFL$=CHR» (8) THEN900 




1000 IFL»=CHR$(9)0RL*=CHR$(1010RL$=CHR$(91)THEN900 


Display gothic character wliicti is being printed. 


1050 PRINTJ)(,L»:X=X+1:PRINT9X,CHR*(93);:NS»=HS*+L$:60T0900 




1100 IFI1S«="'THENPRINT:PRINT:PRINTTAB(16)'< NO MESSAGE, PLEASE T 


2000 PRINT8913,"< CREATIH6 THE CHARACTER "S«"' >"; 


RY AGAIN >":6QT0475 




1125 PRINTi985," '', 


Read data for one gotliic letter. 


Checif for legal operator Input. 


2010 FORII=lTONLT-l:REftDA«:NEnn 




2025 F0RJX=1TDPTR(II)-1 


1150 F0RI=1TQLEN(MS»1:L$=MID»(MS$,I,1) 


2150 REflDCT 


1200 F0RJ=1T0NLT 


2200 FORn=lTOCT:READA$(n):NEni)! 


1250 IFDT* ( J) «L«TI««IFL«-CHR»(34) THENIFQUOTE-OTHEIIPTR ( I ) =50: Q 


2250 NEXTJl: RESTORE 


UOTE=l:BOT014OOELS£PTR(I)=51iQUOTE=0:G0T0140OELSEPTR(I)=J:B0T014 




00 


Create one print line of cfiaracter data. 


1300 NEITJ 




1350 P«INTH41,"<«E88ME HAS Ml UMCC08NIZMLE CHARACTER "jUi" 


2300 F0«J«1T0CT:ST»»"' 
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2500 FORI=lTOLEN(A»(J)):L«=HID»(A»iJ),I,ll 
2550 IFL$="B"ORL»="C"THENB0SUB2750 
2600 NEXTl 

Print one line of character data. 

2650 LPRINTST$ 

Insert spacing between letters. 

2700 NEXTJiLPRINT:LPRINT:RETURN 

Construct print line from character data. 

2750 N2»=I1ID»(A»(J), 1+2,1) 

2B00 N1$=«ID«(A$(J), 1+1,1) 

2850 IFN2«:>"B'ftNDN2i<>"C"THENNU=VAL(Nl»+N2»)ELSENU=VflL(Nl») 

2900 IFLt="B'THENST$=STi+STRING$(NU," "1ELSEST$=ST$+ETRIN6$(NU,C 

t) 

2950 RETURN 

Legal characters in data form. 



7" 



B u II , y 



3000 DATA" ","A","B','C","D","E","F","6',"H','r,'J","K',"L","l1 
,"N",'D",'P",'Q","R","S",'T','U","V,'H",")(".T,"Z",'r,"2',° 

■ JH iCD i/H y7ii iqif ■(}■ "A" "_ii "t" "LI BOH "tfl ifii b\ 
, t , J , , / , I 7 , U , ,,«,:,», I , / 

■ H ■ , B a T B 
I ) I ■ t 



Gothic character data. 

3050 DATA39,B26C4,B28t4,B29C5,B30C5,B30C6,B30C7,B30C7B32C2.B29C9 

B32CJ,B28C15B28C4,B28C8B5C7B24C5,B27CBB11CBB18C7,B27CBB17C8B12CB 

,B26CBB24CBB6C9,B26C3B27C21B16C1,B26C8B27C22B16C2,B26C3B27C8B4C1 

0B17C3 

3100 DATflB27C7B27CBB10C10BllC4,B29C6B26C8B16C9B6C5.B32C4B25C8B22 

C15,B36C2B23C8B27C10,B61CBB23C14,B61C8B16C20,B61C8B9C26,B61C8B2C 

31,B61C38,B57C36,B50C36,B43C35,B36C35,B32C33,B30C27,B2BC22,B27C1 

6, B26C12, B26C8, B26C7, B26C7, B27C6, B29C5 

3150 DATA41,B26C1B60C4,B27C3B59C6,B28C3B61C6,B28C5B26C1B33C7,B29 

C5B26C3B31C7,B29C6B26C5B29C7,B29C7B26C6B27CB,B30C7B25C7B26C8,B30 

C7B25C8B25C8,B30C8B24C9B23C8,B30C8B24C10B22C8,B30C9B22C11B22C8,B 

30C64B1CB,B30C9B1C55B1C7,B30C10B1C55B1C7 

3200 DATAB30C10B3C54B2C5,B30C11B4C54B3C3,B30C11B7C54B2C2,B30C11B 

33C2B1BC12,B30C12B32C2B18C12,B30C12B32C2B18C12,B30C12B32C2B18C11 

,B30C12B32C2B13C11,B30C12B31C3B17C12,B30C11B31C4B17C11,B30C11B30 

C5B17CI0,B30C11B29C6B16C11,B29C12B28C7B16C10 

3250 DATAB29C11B28C8B15C11,B28C12B27C9B15C10,B28C12B25C8B1C2B14C 

10,B27C12B25C9B1C2B14C9,B26C13B23C10B3C2B12C9,B27C123B21C11B4C3B 



9C10,e29C9B20C13B4C5B6C10,B31C7B18CI4B6C19,B32C5B17C15B8C17,B34C 

3B14C17B10C14,B37C3B5C21B13C11 

3300 DATAB39C25B18C5,B42C20 

3350 DATA3a,B26B33C9,B26B27C21,B26B22C31,B26B!9C37,B26B16C43,B26 

B14C47,B2iB12C23B5C2B10Cll,B26B10C20BllC4B12CB,B26B8C18B16C5B14C 

5,B26B7C16B19C7B13C1B1C3,B26B6C15B21C8B13C1B2C3,B26B5C14B22C10B1 

3C1B3C2,B26B4C62B3C2,B26B3C13BIC50B3C2 

3400 DATAB26B2C12B4C50B4C1,B26B1C12B6C50,B26B1C11BBC50,B26B1C10B 

IOC50,B2iC10B59C4,B26C9B59C7,B26C8B59C10,B26C8B58C14,B26C7B58C14 

,B26C7B57CH,B26C6B57C14,B26C6B56C14,B26C5B56C14,B26C5B55C14,B26 

C5B54C14,B26B1C4B54C13,B26B1C4B54C12 

3450 DATAB26B2C3B54C 12, B26B2C4B53C 1 1 , B26B3C3B54C9, B26B4C3B54C8, B 

26B5C2B55C7, B26B6C2B55C6, B26B7C2B56C4 

3500 DATA4 1 , 326C 1 B60C4 , B26B 1 C3B59C6 , B26B2C3B61 C6, B26B2C5B26C 1 B33 

C7,B26B3C5B26C3B31C7,B26B3C6B26C5B29C7,B26B3C7B26C6B27C8,B26B4C7 

B25C7B26Ce,B26B4C7E25C8B25C8,B26B4C8B24C9B23C8,B26B4C8B24C10B22C 

9,B26B4C9B22C!1B22C8,B26B4C64B1C8 

3550 DATAB26B4C9B1C55B1C7,B26B4C10B1C55B1C7,B26B4C10B3C54B2C5,B2 

6B4C11B4C54B3C3,B26B4C11B7C54B2C2,B26B4C11B53C12,B26B4C12B52C12, 

B26B4C12B51C12,B26B4C12B50C13,B26B4C12B50C12,B26B4C12B49C13,B26B 

4C11B*9C14,B26B4C11B48C14,B26B4CI1B47C14 

3600 0ATflB26B3C12B46C14,B26B3CllB45C15,B26B2C12B44C15,B26B2C12B4 

2C16,B26E1C12B42C15,B26C13B40C16,B26B1C12B38C16,B26B3C9B37C17,B2 

iB5C7B35C17,E26B6C5B33CIB,B26B8C3B30C19,B26BllC3B23C20,B26B14C5B 

12C21,B26B19C28 

3650 DATA3B,B26C1B60C4,B26C3B60C6,B26B1C4B61C6,B26B2C4B27C1B33C7 

,B26B3C4B27C3B31C7,B26B4C5B26C5B29C7,B26B4C6B26C6B27C8,B26B4C7B2 

5C''B2SC8,B26B4CeB24C8B25C8,B26B4C9B23C9B23C8,B26B5C8B23C10B22C8, 

B26B5C9B21C11B22CB,B26B5C63B1C8 

3700 DATAB26B4C65B1C7,B26B4C11B1C54B1C7,B26B4C11B3C53B2C5,B26B3C 

12B5C53B3C3,B26B2C12B9C53B2C2.B26B2C12B24C3B27C12,B24B1C13B25C4B 

24C12,B26B1C12B25C7B22C11,B26B1C12B24C10B20C10,B26C13B23C10B21C1 

0,B26C12B23C10B22C10,B26C12B22C10B24C8 

3750 DATAB26C12B21C10B25C8,B26C11B24C6B26C7,B26C11B26C6B26C7,B26 

CI!B27C4B2BC6,B26CnB29C2B28C6,B26CllB60C6,B26CllB61C5,B26B2C9B6 

2C4,B26B4C7B63C4,B26B6C6B64C3,B26B8C5B65C2,B26B10C3,B26B12C2 

3800 DATA35, B26C1B60C4, B26C3B60C6, B27C4B61C6, B2BC4B27C1B33C7, B29 

riB27C3B31C7,B30C5B26C5B29C7,B30C6B26C6B27C8,B30C7B25C7B26Ca,B30 

C8B24C8B25C8,B30C9B23C9B23C8,B30C10B22C10B22CB,B31C9B21CllB22Ca. 

B31C63B1C8,B32C63B1C7,B33C63B1C7,B34C63B2C5 

3650 DATAB36C63B3C3,B3SC64B2C2,B64C3B27C12,B65C4B24C12,B64C7B22C 

11,B63C10B20C10.B62C10B21C10,B61C10B22C10,B60C10B24C8,B59C10B25C 

B,B61C8B26C7,B63C6B26C7,B64C4B28C6,B65C2B29C6.B97C6,B98C5,B99C4, 

B99B1C4,B99B3C3 

3900 DATA4 1 , B59C9 , B53C2 1 , B48C3 1 , B45C37 , B42C43, B40C47, B38C23B5C2B 

10Cll,E36C20BllC4B12C8,B34ClBB16C5B14C5,B33C16B19C7B13CiBlC3,B32 

C15B21C8B13C1B2C3,B31C14B22C10B13C1B3C2,B30C62B3C2,B29C13B1C50B3 

C2,B2BC12B4C50B4C1,B27C12B6C50,B27C11B8C50 
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3950 DATAB27C lOB 1 OC50 , B26C 1 0B26C2B31C4, B26C9B2eC3B28C7 , B26CBB30C 

5B24C10,B26C8B31C6B21C14,B26C7B33C5B1C2B17C14,B26C7B33C6B2C2B14C 

14,B26C6B35C6B2C3B11C14,B26C6B35C7B2C3B9C14,B26C5B36C7B3C3B7C14, 

B26CS636C8B3C3B5C 1 4 , B27C4B36C8B4C3B3C 1 4 

4000 DflTflB27C4B34C8B4C3B3C13,B28C3B3iC8B4C3B3C12,B28C4B34C8B5C3B 

3Cll,B29C3B34C8B6C3B2C10,B30C2B33C8B7C3B3C9,B31C2B3tC8B8C3B4C8,B 

32C2B28C9B10C3B4C7,B34C1B25C10B12C3B4C6,B35C2B21C10B16C3B4C4,B37 

C2BUC11B20C3B4C2,B39C3B7C16B24C3B2C2 

4050 DATAB42C19B31C2 

4 1 00 DATA38, B26C3B58C4 , B2BC4B57C6, B29C5B58C6 , B29C7B23C 1 B33C7 , B29 

C8B23C3B31C7,B30C8B23C5B29C7,B30C8B24CAB27C8,B30C9B23C7B26CB,B30 

C9B23C8B25C8, B29C9B24C9B23C8, B29C9B24C10B22C8, B29C8B24C1 1B22C8, B 

29C63B1C8,B28C8B1C5BB1C7,B27C9B2C58B1C7 

4150 DATAB27C8I5C57B2C5,B1C1B24C8BBC57B3C3,B2C2B22CSB12C35B13C12 

,B3C3B2OC8B42C2B15C12,B4C3B19C8B43C2B14Cll,B4C5B17CSB43C3B13C10, 

B5C5BliC8B42C5B12C10,B6C5B16C8B40C7BllC10,B7C6B15C7B39C9BllC3,BB 

C7B15C6B38C10B10C8,B9C8B16C4B36C12B10C7 

4200 DATAB10C9B17C3B34CllBllC7,BllCllB51C10B13Ct,B13C12B47CllB13 

C6,B14C68B15C6,B16C66B16C5,B19C62B1BC4,B21C60B19C4,B23C58B21C3,B 

27C54B23C2,B76C6,B78C5,B81C3 

4250 BATA17,B26ClB60C4,B24C3B60C6,B2iBlC4B6IC6,B26B2C4B27ClB33C7 

, B26B3C4B27C3B31C7, B26B4C5B26C5B29C7, B26B4C6B26C6B27C8, B26B4C7B2 

5C7B26C8,B26B4C8B24C8B25C8,B26B4C9B23C9B23CB,B26B3C11B22C10B22C8 

,B26B3C11B21C11B22C8,B26B2C66B1C8,B26B1C68B1C7 

4300 DATAB26B1C69B1C7,B26C71B2C5,B26B2C71B3C3 

4350 BATA22,B35C13,B31C20,!29C24,B28C27B32C4,B2BC15B3C10B33C6,B2 

7C12B12C6B35C6,B27C9B18C5BBClB25C7,B26C8B22C5fi4C2B27C7,B26C7B25C 

8B29C7,B26C6B29C4B30C8,B27C4B64CB,B27C4B64C8,B28C4B46C8BBC8,B29C 

4B3AC21B4C8,B30C4B30C29B1C8,B31C5B20C3BB1C8 

4400 DflTAB33C62BlC7, B35C61B1C7, B37C36B16C8B2C5, B40C26B26C7B3C3, B 

45C14B36C663C2,698C5 

4450 DATA4 1 , B26C3B58C4 , B28C4B57C6 , B29C5B58C6 , B29C7B23C 1 B33C7 , B29 

C8B23C3B31C7, B30C8B23C5B29C7, B30C8B24C6B27C8, B30C9B23C7B26CB, B30 

C9B23CBB25C8,B29C9B24C9B23CB,B29C9B24C10B22C8,B29C8B24CnB22C8,B 

29C65B1C8,B2BC8B1C58BIC7,B27C9B2C58B1C7 

4500 DftTftB27C8B5C57B2C5,B26C8B8C57B3C3,B26C8B12C56B2C2,B26[:3P25C 

2B16C2B15C12,B26C8B26C2B16C2B13C12,B26C8B26C3B16C2B12C11,B26CBB2 

6C4B14C4BllC10,B26C8B26C5BllC7B10C10,B27C8B25CtiBBC10B9C10,B29C7B 

24CaB5Cl 3B9C8, B30C6B22C 1 0B2C1 6B8CB 

4550 DATAB33C4B19C10BlC17BllC7,B36C3Bi4C12B3Li4B13C7,B45C20B4Cll 

BliC6,B36C28B6C8B18C6,B32C31B8C5B21C6,B30C32B10C2B24C5,B29C30B40 

C4,B2BC23B49C4,B27C16B59C3,B27CllB66C2,B26C9,B2iC7,B26C6,B27C4,B 

2BC3 

4600 DATA37 , B26C 1 B60C4 , B26C3B60C6 , B27C4B6 1 C6 , B28C4B27C 1 B33C7 , B29 

C4B27C3B31C7, B29C6B26C5B29C7, B30C6B26C6B27C8, B31C6B25C7B26CB, B31 

C7B24C8B25C8,B32C7B23C9B23C8,B32C8B22C10B22C8,B32C8B21C11B22C8,8 

32C42B1C8,B31C9B1C54B1C7,B31C10B1C54B1C7 

4650 DATAB30C11B3C53B2C5,B30C11B5C53B3C3,B29C11B9C53B2C2,B29C11B 



54C12,B28C12B53C10,B28C11B54C9,B27C12B55C7,B27C11B57C5,B27C10B59 

C4,B26C10B61C3,B26C10B62C3,B26C9B65C2,B26C9,B27C8,B27C8.B28C7,B2 

8C7, B29C6, B30C5, B32C3, B34C2, B36C2 

4700 DflTA55, B26C2B59C4, B28C3B58C6, B29C4B59C6, B30C4B25C1B33C7, B30 

C6B24C3B3 1 C7 , B30C7B24C5B29C7, B30C8B24C6B27C8, B30C9B23C7B26C8 , B30 

C9B23C8B25C8,B30C10B22C9B23C8,B30C10B22C10B22C8,B29C11B21C11B22C 

8,B28C66B1C8,B26C69B1C7,B27C69B1C7,B29C68B2C5 

4750 DATAB31C68B3C3,B35C67B2C2,B94C12,B93C12,B59C1B32C12,B60C3B2 

8C12,B61C5B24C12,B62C6B21C12,B62C7B19C12,B62C8B17C12,B31C1B30C9B 

15C12,B30C3B29C10B13C12,B29C5B27C11B12C12,B28C67,B27C67,B26C67,B 

27C65,B2SC63,B29C61,B30C5B25C10B19C3 

4800 DATAB31C3B26C9B22C3,B32C1B28CBB24C3,B62C7B26C3,B63C6B27C4,B 

64C5B26C7,B65C5B25C9,B68C3B23C12,B31ClB39ClB22Cll,B30C3B60Cn,B2 

9C5B59C10, B2eC74, B27C75, B26C76, B27C75, B28C75, B29C74, B30C5B64C5, B 

31C3B66C4,B32C1B69C3 

4850 DATfl40,B26C2B34C3B31C2,B27C3B34C4B29C3,B28C4B33C5B28C4,B29C 

5B32C6B26C5,B29C6B31C7B25C6,B30C6B30CBB23C8,B30C7B29C10B21C10,B3 

0C76,B30C76,B30C75,B30C10B47C17,B29C11B43C19,B29C12B39C20,B28C13 

B36C20,B2fcC15B33C20,B28C13B30C20,B30CllB27C20 

4900 DATflB32C9B24C20,B33C8B21C20,B36C4B19C20,B3BClB17C20B17Cl,B5 

3C20B19C4,B50C20B21C7,B47C20B24C9,B44C20B27C11,B41C20B30C13,B38C 

20B33C!5,B35C20E36C13,B32C20B39C12,B29C20B43C11,B28C1BB46C10,B27 

C75, B26C76, B26C76, B26C1 1B58C7, B26C10B60C6 

4950 DATAB27C8E62C6, B29C6B63C5, B31C4B65C4, B33C3B66C3 

5000 DATA33, B59C9, B54C21 , B48C31 , B45C38,B42C43, B40C47, B38C23B6C2B 

9C1 1 , B36C20B12C3B10C2B1C7, B34C18B16C5B9C2B4C5, B33C16B19C6B9C2B5C 

4,B32C15B21C7B9C2B6C3,B31C14B22C9B9C2B7C2,B30C58,B29C12B3C45,B28 

C12B5C45,B28C11B7C46,B27C11B10C45,B27C10B15C43 

5050 DATftB26C10B58C3,B27C8B58Ci,B29C5B58C10,B30C3B58C15,B3]C2B5S 

C14,B32C2B56C14,B34C2B53C15,B35C2B51C15,B37C2B47C16,B38C3B44C16, 

B40C4B40C16,B41C6B35C17,B43C7B29C18,B45C8B23C20,B47C11B14C22,B49 

C4 1 , B52C36, B54C31 , B57C25,B60C19 

5100 DATA38,B27C3B5BC4,B28C4B57C6,B29C5B5BC6,B29C7B23C1B33C7,E29 

C8B23C3B31C7,E30C8B23C5B29C7,B30C8B24C6B27C8,B30C9B23C7B26C8,B30 

C9B23C8B25C8, B29C9B24C9B23C8, B29C9B24C10B22C8, B29C8B24C1 1B22C8, B 

29C65B1CB,B28C8B1C58B1C7,B27C9B2C58B1C7 

5150 DATAB27C8B5C57B2C5,B26CBB8C57B3C3,B26C8B12C56B2C2,B26C8B31C 

4B25C12,B26C8B30C7B23C11,B26C8B29C10B20C1I,B26CBB28C13B18C11,B26 

C8B28C11B19C11,B27C8B26C10B21C11,B28C7B25C9B22C11,B30C6B24C8B23C 

1 1 , B33C4B23C7B23C1 1 , B36C3B20C7B24C10, B59C6B24C10 

5200 DATAB59C5B24C10,B59C5B23C10,B60C3B23C10,B60C3B22C9,B60C3B20 

C10,B61C2B18C10,B62C2B15C10,B63C2B12C9,B65C18 

5250 DATA41 , B59C9, B54C21 , B48C3 1 , B45C38, B42C43, B40C47, B38C23B6C2B 

9C11,B36C20B12C3B10C2B1C7,B34C18B16C5B9C2B4C5,B33C16B19C6B9C2B5C 

4,B32C15B21C7B9C2B6C3,B31C14B22C9B9C2B7C2,B30C50,B29C12B1C47,B28 

C12B3C47,B28C1IB4C49,B27C11B5C4B1C45 

5300 DATAB27C10B6C5B4C43,B26C10B7C6B45C3,B27C8B7C7B44C6,B29C5B7C 

9B42C11,B30C3B6C11B41C16,B31C2B4C12B42C15,B32C16B42C15,B31C15B43 
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C15,B29C16B43C15,B28C15B43C16,B27C14B44C1A,B2AC13B1C4B40C17,B26C 

llB4CiB35C17,B2iC9B8C7B29C18,B26C8BllC8B23C19 

S350 DATAB26C8B13C11B14C21,B26CBB1SC41,B27C7B18C3&,B28C6B20C31,B 

29C5B23C25, B30C4B26C19, B31C4B30C9, B32C3, B34C2 

5400 DATA41,B2&C3B5eC4,B28C4B37C&,B29C5B5eC<i,B29C7B23ClB33C&,B29 

CflB23C3B31C7, B30CBB23C5B29C7, B30C8B24C6B27CB, B30C9B23C7B26C8, B30 

C9B23C8B25C8,B29C9B24C9B23C8,B29C9B24C10B22Ce,B29CBB24CllB22C8.B 

29C65B1C8,B28C8B1C58B1C7,B27C9B2C58B1C7 

5450 0ATAB27C8B5C57B2C5,B26C8B8C57B3C3,B26C8B12C56B2C2,B26CBB29C 

2B29C12, B26C8B29C2B29C11 , B26C8B29C2B29C1 1 , B26C8B30C2B28C10, B26C8 

B30C2B2BC10,B27C8B29C2B28C9,B28C7B29C3B24C10,B30CAB28C4B25C10,B3 

3C4B26C(iB24C9 , B36C3B23C8B22C 1 , B60C 1 1 B20C 1 

5500 DATAB58C14B19C10,B30C43B18C10,B28C43B1C2B16C10,B27C44B2C2E1 

4CI0,B26C43B5C3B10C12,B26C41B9C4B5G14,B26C37B14C20,B26C5B4BC16,B 

26C4B51C12,B26C4B54C6,B27C3,B28C3 

5550 DATA39, B26C3, B28C4, B30C4, B32C4, B33C5, B34C5B42C2, B35C5B39C5, 

B35C6B36CB,B36C6B33Cn,B36C7B31C13,B37C7B29C15,B37C7B2BC17,B37C8 

B26C19,B37CBB25C17B2C3,B37C9B10C2BlIC16B6C3,B36C10B9ClB12CltB9C3 

,B36C10B8C1B12C16B10C5,B35C11B8C1B12C15B10C9 

5600 DflTAB34C12B9ClB10C15B10C14,B33C12BllC2B7C15B10C13,B32C13E14 

C2B4C14B11C11,B31C13B18C16B11CU,B29C14B21C13B12C9,B26C17B20C13B 

12C10,B27C14B22C12B12C11,B27C13B22C12B1C2B10C11,B2BC11B23C12B4C2 

B6C12,B29CBB24C12B8C2B3Cn,B30C6B25C12BllC13 

5650 DflTftB30C5B25C12B14ClI,B31C2B27C12B14Cll,B32C2B25C12B16C10,B 

33C2B23C12B17C10,B34C2B21C13B18C9B1C2,B35C3B1BC13B20C8B4C2,B36C3 

B15C13B23C7B6C1,B37C4B10C14B27C6B6C1,B39C25B31C5B5C1,B41C20B36C4 

B3C1 

5700 DftTA38,B59C9B23Cl,B53C21BlBC2,B48C31B15C2,B45C37B13C3,B42C4 

3BllC4,B40C47B10C4,B38C23B17CllB9C4,B36C20B27CBBBC4,B34CiaB14C2B 

19C5B7C5,B33C16B18C3B20C3B6C6,B32C15B21E4B20C3B4C6,B31C14B23C5B2 

1C2B3C7,B30C13B25C6B21C2B2C7,B29C13B26C7B21C10 

5750 DATflB28C12B27C8B22C9,B27C60B9C10,B27CllBlC49B7C10,B27C10B3C 

49B5C10, B26C10B5C49B3C1 1 ,B26C9B7C49B1C1 1 , B26C8B9C60, B26C8B57C1 1 , 

B26C7B58C 1 1 , B26C7B57C 1 1 , B26C6B5BC1 1 , B26C6B58C 1 1 , B26C5B60C9 , B26C5 

B60C9,B26C5B60C9,827C4B61C8,B27C4B61C8 

5800 DflTAB28C3B62C8, B28C4B62C7, B29C3B62C7, B30C3B62C6, B31C2B63C6, 

B32C2B63C5,B33C2B64C4 

5850 DATfl37,B26C2B36C3B29C2,B27C4B34C5B28C3.B2BC5B33C6B27C4,B29C 

5B33C6B26C5,B29C6B32C7B25C6,B29C7B31CBB24C7,B30C7B29C10B22CB,B30 

C76,B30C76,B30C75,B30C74,B29C73,B28C71,B2BC12,B27C13,B26C14,B27C 

12,B2BC11,B29C9,B30C7,B31C6B61C2,B32C4B63C4 

5900 DATAB33C2B65C4,B34C2B64C5,B35C2B62C7,B36C70,834C72,B32C74,B 

30C76, B28C77, B26C7B, B27C13B57C7, B28C10B60C6, B29C7B63C5, B30C4B67C 

4,B31C2B71C2,B32C2 

5950 DATA35, B26C2B36C3B31C2, B27C4B34C5B29C4, B28C5B33C6B2BC4, B29C 
5B32C7B27C5, B29C6B30C9B26C6, B29C77, B30C76, B30C76, B30C76, B30C75, B 

30C74,B29C10B5BC7,B28C11B59C6,B2BC12B59C5,B27C13B61C4,B26C14B64C 
2,B27C12,B2BC11,B29C9,B30C7,B31C6,B32C4,B33C2 



6000 DATAB34C2,B35C2B51C9,B36C3B34C28,B37C65,B39C64,B41C63,B43C6 

2,B46C33B18Ce,B49C14B36C7,B26B75C5,B26B76C3,B26B77C2 

6050 DATA48,B26C2B36C3B29C2,B27C4B34C5B28C3,B28C5B33C6B27C4,B29C 

5B33C6B26C5,B29C6B32C7B25C6,B29C7B31CflB24C7,B30C7B29C10B22CB,B30 

C7t,B30C76,B30C75,B30C74,B29C73,B28C71,B2BC13,B27C14,B26C15,B27C 

12B25C3, B28C 1 1 B26C5 , B29C9B28C6B2tC2 

6100 DATAB30C7B30C6B26C4,B31C6B30C7B26C4,B32C4B31C8B25C5,B33C3B3 

0C10B23C7, B34C72, 632074, B30C76, B28C7B, B26C80, B26C79, B27C8B2BC10B 

23C8, B2BC5B31C8B25C7, B29C2B34C7B26C6, B30C2B34C6B27C5, B31C2B34C6E 

28C4, B32C2B35C5B30C2, B33C3B36C3, B34C4B49C6 

6150 DATAB35C7B41C14,B36CllB22C31,B37C65,B39C64,B4iC63,B43C62,B4 

6C33Bi8CB,B49C14B36C7,B53C6B42C5,B26B76C3,B26B77C2 

6200 DATfl36,B26C3B64C4,B27C5B63C5,B28C6B63C6,B28C7B62C7,B29C7BlB 

C3B40C8,B29CaB18C5B37C9,B2BC9B19C6B34C10,B2BC9B20C7B31Cll,B2BC10 

B20C8B27C13,B27C11B21C9B22C15,B27C11B21C10B1BC17,B26C12B21C12B12 

C19,B32C6B22C12B7C21,B37C6B17C12B3C23 

6250 DATAB43C6EnC36,B49C6B4C33,B55C33,B59C24,B56C23,B52C23,B4BC 

29,B44C29B4C6,B40C32BllC6,B36C36B17C6,B31C24B6C12B21C6,fi29C21B13 

C10B21C12,B2BC17B19C9B21C11,B27C15B24C8B20C11,B26C13B29C7B19C10, 

E26C11B3.3C6BI9C9,B26C10B36C5B18C9 

6300 DfiTAB26C9B40C3B17C8,B27CBB62C7,B2BC7B63C7,B29C6B64C6,B32C5B 

64C5 

6350 DATA36.B26C1B33C3B33C2,B26C3B33C4B31C4,B27C4B32C5B30C5,B28C 

4B31C7B2BC6,BIC2B25C6B29C8B27C7,B3C3B22C7B28C9B25C9,B4C4B21C7E26 

CnB23C10,B5C5B19C77,B6C5B18C77,B6C6B17C77,B7C6B16C76,B7C6B16C75 

,B7C7B14C73,B7C7B14C11B52C3,B7C8B12C12B54C3 

6400 DATAB7CBB11C12B57C3,B7C9B12C10B5BC4,B6C10B14CBB57C7,B6C10B1 

6C5B58C?,B6C10B1BC3B57C12,B5C11B20C3B55C11,B5C11B22C3B53C10,B4C1 

1B25C3B50C11,B4C11B27C3B4BC10,B3C12B29C3B46C10,B2C12B20C69,B1CI3 

B16C72,B2C11B15C74,B3C9B14C76,B4C7B13C7B 

6450 DATAB5C5B12CS0,B6C5B11C16B60C7,B7C3B8C16B63C6,B9C23B66C6,B1 

IC18B71C5,B15C11B77C3 

6500 DATA39,B26C3B52C5,B28C3B46C14,B29C4B42C19,B30C5B39C5B6C11,B 

30C6B37C3B11C11,B31C7B35C2B13C12,B31C10BJ2C1B15C13,B31C11B47C15, 

B32C8B2C2B45C17,B32C9B3C2B43C16,B32C9B5C2B40C16,B32CI0B6C2BnC5B 

22C15,B32C10E8C28nC7B17C15 

6550 DATAB32C11B9C2B10C8B15C14,B32C11B11C2B8C9B13CH,B32C11B13C2 

B6C9B13C14,B32C11B15C2B4C9B13C14,B32C12B16C2B2C9B13C13,B32C12B18 

C11B12C14,B32C12B20C9B12C14,B32C12B20C9B12C14,B32C12B20C9B12C14, 

B31C13B20C9B13C13,B31C13B20C10B12C13 

6600 DATAB31C13B20C9B1C2B10CI3,B30C14B20!:9B3C2B9C12,B29C15B20C9B 

5C2B7C12,B29C15B20C9B7C2B5C12,B28CI5B22C8B9C2B4C11,B27C16B24C7B1 

0C2B2C1!,B26C17B28C5B10C2B1C10,B27C15B46C12,B2BC14B12C2B34C10,B3 

0C12B13C2B35C9,B32C11B11C4B36C7,B34C10B9C5B3BC6 

6650 DATflB36C10B5C6B41C4,B38C18B44C3,B40C14B48C2 

6700 DATA10,B30C1B59C1,B31C2B57C1,B32C2B56C2,B33C60,B34C60,B35C5 

B,B36C56,B37C54,B3BC2,B39C2 

6750 DATA19,B30C7B34C15,B31C6B1C4B30C15,B31C7B4C4B27C15,B32C7B7C 
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3B25C15,BJ2C7B10C3B23C15,B33C7B12C2E33C4,B33C7BHC2B32CA,B32C7B1 

7C2B29C6,B32C7B18C2B27C8,B31C7B21C2B24CB,B31C7B22C2B22C8,B30C7B2 

4C2B20C8,B30C7B25C2B1BCB,B30C6B27C2B16CB 

6800 0flTflB30C6B28C2BMC8,B30C6B29C22,B31C6B29C20,B32C6B29C18,B33 

C6B29C16 

6850 DATA19,B40C1B45C1,B39C4B43C2,B38C7B41C3,B37C8B41C4,B36C8B19 

ClB22C5,B35CBB19C3B21Ci,B34C8B19C5B20C7,B33C8B19C7B19CB,B32C8B19 

C9B18CB,B31C8B19C8B1C2B17C8,B30C8B19C8B3C2B16C8,B31C6B19CBB5C2E1 

5C8,B32C4B19C8B7C2B14C8,B33C2B19CBB9C2B13C8 

6900 DATAB34C2B17CBBnC2BllC9,B35C25B13C21,B36C23B15C19,B37C21Bl 

7C17,B38C19B19C15 

6950 DATA23,B59C1,B59C3,B59C5,B60C6,B60CB,B60C10,B61C7B1C3,B41C7 

B3[;3,B61C7B5C3,B62C7B6C3,B62C7B8C3,B62C7BI0C3,B62C7B12C3,B61C7B1 

5C3,B34C1B25C8BI7C3,B33C3B24C8B20C3,B32C60,B31C53,B30C64,B31C63, 

B32C62,B33C3B24C7,B34C1B28C5 

7000 DATA19,B40ClB15C38,B39C4B14C3t,B38C7B13C8B20C6,B37C8B14CaBl 

8C7, B36C8B16C8B16C7, B35C8B18CaB15C7, B34CBB20C8B14C6, B33CeB22C8Bl 

2C7,B32C8B24C8B11C7,B31C8B26C8B10C7,B30C8B28C8B9C7,B31C6B28C3B10 

C7, B32C4B28C8B1 1C7, B33C2B28C8B13C6 

7050 DATAB34C2B2ACSB14C6,B35C34B16C6,B36C32B17C6,B37C30B21C4,B38 

C28B24C3 

7100 DATA19,B40C44,B39C46,B38C48,B37C50,B36C52,B35C8B25C2B17C2,B 

34C8B27C2B17C2,B33C8B29C2B17C2,B32CBB31C2B15C4,fi31C8B31C4B12C6,B 

30C8B31C6B11C8,B31C6B31C8B9C8,B32C4B31C9B8C8,B33C2B3!C8B9C8,B34C 

2B29C8B9C8,B35C37B9C8,B34C35B9CB,B37C33B10C7 

7150 DATAB38C31B13C4 

7200 DATA19,B30C2B54C1,B31C2B53C3,B32C2B52C5,B33C5B48C7,B34C12B4 

0C8,B35C19B32C7,B36C23B27C7,B37C29B20C6,B38C31B17C6,B39C2B10C21B 

15C5,B40C2B16C17B12C5,B41C2B21C14B9C5,B69C11B8C4,B74C9B5C4,B78C7 

B4C4,B81C6B2C4,B84C9,BB8C5,B91C3 

7250 DATA19,B39C16B13C16,B38C19B10C18,B37C22B7C20,B36C24B5C22,B3 

5C26B3C24,B34CBB17C3BlCBBlfcC2,B33C8B20C9B18C2,B32C8B21C8B20C2.B3 

1C8B21C8B20C4,B30C8B21C8B20C6,B31C6B21C8B20CB,B32C4B21C8B20C8,B3 

3C2B21C8B20C8,B34C2B19C9B19C8 

7300 DATAB35C2B17C8B1C3B16C8,B36C25B3C25,B37C23E5C23,B38C21B7C21 

,B39C19B10C18 

7350 DflTA20,B40ClB20C25,B3BC4B17C27,B37C7B14C29,B36CBB13C31,B35C 

8B13C33,B34C8BI3C8B25C2,B33C8B13C8B27C2,B32C8B13C8B27C4,B31C8B13 

CBB27C6,B30C8B15C6B27C8,B31C6B17C4B27C8,B32C4B19C2B27C8,B33C2B21 

C2B25C8, B34C2B21C2B23C8, B35C2B21C2B21C8, B36C52 

7400 DATAB37C50,B38C48,B39C46,B40C44 

7450 DATA19, B40C44, B39C46, B38C4B, B37C50, B36C52, B35CBB44C2, B34C8B 

46C2,B33CBB48C2,B32C8B4BC4,B31C8B48C6,B30C8B48CB,B31C6B48C8,B32C 

4B4BC8,B33C2B4BC8, B34C2B46C8, B35C54, B36C52, B37C50, B38C4B 

7500 DATA 1 6 , B53C5 , B55C6, B56C7 , B56CB, B56CS , B5AC8 , B56CB , B56C8 , B56C 

8, B56C8, B56C8, B56C8, B56C8, B56C8, B57C7, B59C6 



7550 DATA9,B35C1B63C4,B35C3B62C6,B34C6B60C8,B32C10B40C27,B30C13B 
4C63,B30C13B4C63,B31C10B14C54,B33C6B31C39,B35C3B49C21 

7600 DATA29,B78C1B16C1,B43C21B14C19,B42C23B13C20,B41C25B11C22,B4 

0C27B9C24,B39C29B8C25,B38C31B6C27,B37C10B21C2fl4C9BIBC2,BJ6CI0B23 

C2B2C9B17C5,B35C10B25C11B16C8,B34C10B25C11B16C10,B33C10B24C12B15 

CI3,B32C10B22C14B15C15,B31C10B19C17B15C17 

7650 DATAB30C10B16C19B17C18,B31C8B12C22B18C14,B32C6B9C23B21C12,B 

33C4B6C25B23C10,B34C2B3C23B28C9,B35C23B32CB,B34C20B36C7,B32C17B4 

1C7,B30C15B46C5,B30C11B50C3,B30C9B1C19B33C2,B30C8B3C19B33C1,B30C 

7B5C19,B30C7B6C19,B32C5B7C19 

7700 DATA23,B97C1,B81C18,B80C20,B79C22,B78C24,B77C26,B78C26,B35C 

1B22C7B14C7B17C2,B35C3B16C15B11C5B19C2,B34C6B11C21B9C3B19C4,B32C 

10B7C24B9C1B19C6,B30C13B4C28B26C8,B30C13B3C3B12C15B24C10,B31C10B 

4C2B16C14B22C10,B33C6B26C12B21C10 

7750 DATAB35C3B29C11B19C10,B37C1B30C11B17C10,B69C10B16C10,B70C34 

,B71C32,B71C31,B72C29,B72C28 

7800 DATA19,B40C3B20C9,B42C4B15C14,B43C5B11C19,B44C5B10C9B10C2,B 

44C6B9C8B10C5,B44C7B7C8B10C7,B44C7B7C8B9C10,B30C64,B30C64,B44C8B 

6C8B7C9,B43C9B6C8B7C8,B30C64,B30C64,B40C10B8C8B8C7,B42C7B9C8B8C7 

, B43C5B9C8B10C6, B45C2B9C9B1 1C5, B47C18B12C5 

7850 DflTAB50C14B15C4 

7900 DATAl 5, B45C1B48C1 , B44C52, B43C54, B42C56, B41C58, B40C60, B39C2B 

5BC2, B38C2B60C2, B37C2B62C2, B36C2B64C2, B35C2B66C2, B34C2B68C2, B33C 

2B70C2,B32C2B72C2,B31C2B74C2 

7950 DATA15, B31C2B74C2, B32C2B72C2, B33C2B70C2, B34C2B68C2, B35C2B66 

C2,B36C2B64C2,B37C2B62C2,B3BC2B60C2,B39C2B5SC2,B40C60,B41C58,B42 

C56,B43C54,B44C52,B45C1B48C1 

8000 DATA9,835C1,B35C3,B34C6,B32C10,B30C13,B30C13,B31C10,B33C6,B 

35C3 

6050 DATA10,B36C1,B36C2B22C1,B37C2B21C3,B24C1B12C3BI9C6,B24C2B10 

C5B16C10,B25C3B7C7B!3C13,B26C17B12C13,B27C15B14C10,B28C13B17C6,B 

30C10B20C3 

8100 DflTA10,B36Cl,B36C2,B37C2,B24ClB12C3,B24C2B10C5,B25C3B7C7,B2 

6C17,B27C15,B28C13,B30C10 

8150 DATA9,B35C1B24C1,B35C3B22C3,B34C6B18C6,B32C10B15C10,B30C13B 

12C13,B30C13B12C13,B31C10B15C10,B33C6B19C6,B35C3B21C3 

8200 DATA10,B30B74C2,B30B74C3,B91C1B12C3,B91C2B10C5,B92C3B7C7,B9 

3C17,B94C15,B95C13,B97C10,B99C6 

8250 DATA29,B99C6,B97C10,B95C13,B94C15,B93C17,B92C3B7C7,B91C2B10 

C5,B91C1B12C3,B74B30C3,B30B74C2,B1,B1,B1,B1,B1,B1,B1,B1.B1,B99C6 

,B97C10,B95C13,B94C15,B93C17,B92C3B7C7,B91C2B10C5,B91C1B12C3,B74 

B30C3,B30B74C2 

8300 DATA29,B30B74C2,B30B74C3,B91C1BI2C3,B91C2B10C5,B92C3B7C7,B9 

3C17,B94C15,B95C13,B97C10,B99C6,B1,B1,B1,B1,B1,B1,B1,B1,B1,B30B7 

4C2,B30B74C3,B91C1B12C3,B91C2B10C5,B92C3B7C7,B93C17,B94C15,B95C1 

3,B97C10,B99C6 © 
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by Mark Pelczarski 
TRS-80® translation by 
Robert Jacobs 

Database is a set of file manager 
programs designed to run on a TRS- 
80® Model I/III with 48K and one 
disk drive. Operation in 32K is 
possible with modification of the 
CLEAR statement at the beginning 
of the programs. 

TRS-80® SEQUENTIAL 
FILE DATABASE 

The TRS-80®version of 
SoftSide's Database appears in its 
entirety starting on the next page. It 
follows the Apple version published 
in October, 1981, very closely, and 
the instructions for using the Apple 
version are appropriate for the 
TRS-80® . There are a few dif- 
ferences of style and a few minor 
modifications which spring from the 
difference between the operating 
systems of the Apple and TRS-80®. 
These will be commented upon as 
they arise in the description below. 

The user of this database is first 
asked whether he or she wishes to 
begin a new file or load an old one. 
The files established by the database 
carry their own headings and for- 
mat; if an existing file is to be 
loaded, no further decisions are re- 
quired of the operator, who is 
presented with the main menu after 
the data is loaded. If a new file is to 



be created, the number of headings 
and the name of each must be 
entered. 

The main menu offers most of the 
usual database manipulations. One 
may add, delete, alter, sort or print 
data. The search routine is called if 
one chooses to print, delete or alter 
records. As in the original version it 
is possible to operate on one item, a 
subset of items, or all items. The 
heading under which one wishes to 
select is chosen from the search 
menu; then a criterion is elected 
(greater than, less than, or equal to), 
and a value for comparison is 
entered. 

A partial value may be used by 
substituting an asterisk for the re- 
mainder of the record. To use Mark 
Pelczarski's example, all zip codes 
beginning "60" could be selected by 
entering "60*" as the comparison 
value. The program loops back to 
the search routine with each selec- 
tion, so that one may either add 
criteria or begin the search. If 
necessary, it is also possible to 
return to the main menu and start 
over at this point. 

One difference between the Apple 
and TRS-80® versions of the 
database is that the latter telescopes 
the print options into one menu 
which offers the choice of printing 
either to the display or to the 
lineprinter with either a default or 
custom format. One keystroke suf- 



fices. This menu also warns if the 
lineprinter is not ready. 

On selection of one of the hard 
copy options, BASIC'S TIME$ is 
printed. This feature can be disabled 
without difficulty if desired. If one 
of the default format options is 
chosen the search routine already 
discussed is called; otherwise the 
user must either load or construct a 
custom format. 

Construction of the format is un- 
changed from the earUer versions. 
In making the format (don't forget 
to save it!) one chooses among the 
(1) Heading, (2) Item (this is the ac- 
tual data item), (3) Tab number, (4) 
Next line, (5) String, and (6) End. 

Where necessary the program 
prompts for the appropriate value. 
Thus if "tab" is selected, the tab 
number (not the number of blank 
spaces!) has to be entered. If 
"string" is selected, the text of the 
string must be supplied. If "1" is 
supplied after the entry of "4" 
(Next Hne), the printout drops down 
one line, and so on. The ability to 
prepare reports as one wishes is an 
important feature for a database 
program, and this one is quite 
versatile. 

Users of disk operating systems 
which permit access to directories 
from BASIC may wish to enable 
lines 270, 380 and 600 by removing 
the apostrophes. This will allow a 
look at the available data files. 
NEWDOS 2.1 requires that there be 
several thousand bytes free for this 
technique to work; one would have 
to reduce the string space cleared in 
line 100 to 17,000 (for a 48K 
machine) in order to use this com- 
mand. In NEWDOS-80 Versions 1 
and 2, the string space may remain 
high. Note that in line 600 the drive 
number is chosen. This may be 
altered for your own purposes; in- 
deed, some of the better operating 
systems allow a format like 
CMD"DIR 2 /DAT" which 
displays only files with the extension 
/DAT, a great convenience. 

Display of remaining free space 
has been left optional in the main 
menu. This is because the FRE(A$) 
function, which forces garbage col- 
lection, is very slow with large 
data files. 

Many enhancements for this 
database are possible, some of them 
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branching out into functions not accessible to the 
TRSDOS user. Among the obvious possibilities are the use 
of Machine Language sort and search routines to speed the 
program, as well as the random access and numerical data 
enhancements suggested by Mark Pelczarski in his October 
article. It is to be hoped that we will see a number of 
these soon. 

Variables 

A$: User answers. 

AS: Accept switch for search routine. 

B$: Formatted output string. 

BS: Condition switch. 

C$(n): Test conditions for search. 

Cl(n), C2(n): Store less, equal or greater choices for 

search routine. 

F$: Filename. 

F$(n): Character string holding format codes. 

FS: Format switch. 

H$: Heading string. 

I, II, 12, 19: Loop and array counters. 

II, J, Jl, J2: Loop and array counters. 
MX: Maximum number of records. 

N: Loop counter, format routine. 

NF: Number of format instructions. 

NH: Number of headings. 

NI: Number of items. 

PI, P2: Poke addresses for directing output to printer. 

PR: Printer driver address. 

RS: Return switch; when equal to 1, control returns to 

menu. 

SI, S2: Poke addresses for directing output to display. 

SB: Directs search subroutine to change, delete or print 

routine. 

SC: Screen driver address. 

SS: Save switch. 

T: Format array counter (3800-3960). At 7100-7160 used 

as temporary holding variable in sort routine. 

T$: Temporary string; holds decision to save file at 500 

and is used in sort routine for temporary storage. 



$«$$$$$($$$$$$»$$$$$$$$$$$$$$ 

$ TRS-SO Nod 1/3 DISK BASIC » 
» 'SEQUENTIAL DATABASE" ♦ 
♦ Author; Mark Pelczarski $ 
$ Translator: Robert Jacobs $ 
$ (c) 1982, SoftSide ♦ 

t$$$m$$$$$$$$$$$$$$$$»»«$$$ 

Main Control routine. 

100 CLS:CLEAR20000:HX=150 

102 SC=16414;S1=PEEK(SC):S2=PEEK(SC+1) 

103 PR=16422:P1=PEEK(PR):P2=PEEK(PR+1) 
105 DINC»(7),C1(7),C2(7),F$(5) 

no PRINT" (I) INITIALIZE A NEN DATA SET" 

120 PRINT" (L) LOAD A PREVIOUSLY SAVED DATA SET 

130 60SUB60000 

140 IFA»="L"0RA»="1 "BOSUB1000:60T0200 

150 IFA$="I"0RA»="i"6OSUB1500:B0TO200 

140 60T0100 

200 CLSiPRINT"(S) Save current data" 



210 PRINT'(P) Print data" 

220 PRINT" (A) Add data" 

230 PRINT" (C) Change a record" 

240 PRINT" (D) Delete a record" 

260 PRINT" (T) Sort" 

270 PRINT" (N) Ne* data file" 

280 'PRINT"(F) File names" 

290 PRINT" (Q) Quit" 

295 'PRINT" (E) Exaiine free space" 

300 BOSUB 60000:PRINT 

310 IFA$="S"ORA$="5"60SUB2000:BOT0200 

320 IFA$="P"ORfl»="p"GQSUB3000:60T0200 

330 lFA<="A"ORA»="a"6DSLlB4000:60T0200 

350 IFfi»="C"0RA*="c"THENSB=3:SaSUB8000:5DT0200 

360 IFA$="D"0RA$="d"THENSB=4:FS=l:6QSUB8000:60T[!200 

370 IF Al="T"ORAJ="t" THEN GQSUB7000!B0TQ200 

380 'IF A$="F"0RA$="f"THENB0ELlB600!G0T0200 

390 IFft$="0'QRA$="q"ORA$="N"ORA$='n"THEN500 

395 IFA»="E"0RA»="e"THEN6OSUB699:BOTQ200 

397 IFA*<>"Q"ANDA$<>"b"G0TO2OO 

500 T$=A»:IFSS=1THEN540 

510 PRINT'CURRENT FILE IS NOT SAVED. ":PRINT"CANCEL COMMAND (Y/N) 

? "i!60SUB60000 

520 IFA»="Y"0RA»="y"THEN200 

530 IFA»<>"N"ANDA$<:>"n"THEN5I0 

540 IFT»="N"ORT*="n"THENIOO 

550 END 

too 'CMD''DIR":G0SLIB60000!RETURN 

699 PRINT'YOU HAVE SPACE FOR'iFRKAt); "CHARACTERS" :G0SUB60000:RE 

TURN 



Load subroutine. 



";F$ 



1000 LINEINFUT'FILENAME: 

1005 ON ERROR 60T01310 

1010 0PEN"I",1,F$ 

1020 INPUTI1,NH,NI 

1120 DII1H$(NH),I$(M.ll,NH) 

1140 FORI=OTONH!lNPUTtl,H«(I);NE.n 

1200 IFNI=-1THEN12S0 

1240 FORI=OTONI 

1250 FORJ=0TONH 

1260 INPUTI1,I$(I,J) 

1270 NEXTJ 

1280 NEXTI 

1290 CLOSE 

1300 ON ERROR GQT00:SS=1: RETURN 

1310 PRINT'FILE NOT F0UND":B0SUB60000:RESUME100 

Initialize subroutine. 

1500 LINEINPUT"Bive your file a naie ==> "jFt 

1510 IFF$=""THEN1500 

1520 INPUT'HoN Bany headings";NH 

1530 IFNH<1THEN1520 

1540 NH=NH-1:NI=-1 

1560 DIMH$(NH),I$(HX,NH) 

1.570 FORI=OTONH 

1580 PRINT"Heading l"iI+li:INPUT " : "iHSd) 

1590 NEXTI 

1600 SS=0: RETURN 
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Write subroutine. 

2000 PRlNT'UsB ")F»;" (Y/N)?"i:G0SUB60000 

2010 IFA«="yORA$='y"THEN2050 

2020 IFA»<>"N'flNDft»<>"n"THEN2000 

2030 LINEINPUT-NAME: "iF$ 

2040 IFF$="'THEN2030 

2045 ON ERROR GOTO 2290 

2050 OPEN"0",l,Ft 

2060 PRINTtl,NH;NI 

2070 F0RI=0T0NH 

2080 PRINTI1,H$(I) 

2090 NEH 

2220 IFNI=-1THEN2270 

2230 FORI=OTONI 

2240 FORJ=0TONH 

2250 PRINTI1,I»(I,J) 

2260 NEHiNEH 

2270 CLOSE 

2280 ON ERROR 6GT00:SS=1:RETURN 

2290 PRINT'DISK ERROR" :BOSIJB60000!RESUI1E200 

Print subroutine. 

3000 IF NI=-1THEN60SUB9000:RETURN 

3005 CLS:PRINT"(A) SCREEN PRINT, DEFAULT FORMAT 

(B) SCREEN PRINT, SELECT FORMAT 

(C) LINE PRINT, DEFAULT FORMAT 

ID! LINE PRINT, SELECT FORMAT': IFPEEK(14312)<>63ANDPEEK1293)<>73 
THENPRINT:PRINT"PRINTER NOT READY ":GOSUB60000ELSE60SUB60000 

3006 IFA$="A"0RA*='a"THENFS=l:GOT03040 

3007 IFA$="B"QRA$="b°THEN60SUB10000:FS=2:GOT03040 

3008 IFA$="C"0RA$="c'THENFS=!:SB=2;LPRINTCHR»(138):LPRINTTIHE»:6 
0T03060 

3009 IFA$="D"QRA$="d"THEN60SUB10000:FS=2:SB=2:LPRINTCHR$(138):LP 
RINTTIME$:60T03060 

3010 IF A$<>"D"ANDA$<)"d"THEN3005 

3040 SB=l!CLS:PRINT"AFTER EACH RECORD <M> HILL RETURN YOU TO HEN 

U':PRINT 

3050 PRINT'Press any key . . .":60SUB60000 

3060 SOSUBBOIO 

3090 IFSB=2THENP0KESC,S1:P0KESC+1,S2 

3100 RETURN 

Print one record to the screen. 

3300 ON FS60SUB 3700,3800 

3340 BOSUB60000;IFA«="M"ORA*="f"THENRS=l 

3350 RETURN 

3600 ON FS GOSUB 3700, 3800: RETURN 

Print one record default format. 

3700 CLS:PRINT' ^PRINT'RECORD ";I+1:PRINT" " 

3710 FORil=OTONH 

3720 PRINTH$(J),I$(I,J) 

3730 NEXTJ 

3740 RETURN 

Print one record custom format. 

3800 CLS:J=1:T=0:B$=" 



3820 J1=VAL(MID$(F$(T!,J,1)):J=J+1 

3830 IFJl<5THENN=VAL(MID$(F$(T),J,2)):J=J+2 

3B40 ON Jl G0T03850, 3860, 3870,3890,3910, 3970 

3850 A1=H»(N):G0T03950 

3860 A$=I$(I,N):G0TD3950 

3870 B$=LEFT»(B*,N-l):IFLEN(B$)<N-lTHENF0RJ2=LEN(Bt)T0N-2:B»=B»+ 

• ^NEU 

3B80 G0T03960 

3890 PRINTB$:IFN>1THENF0RJ2=2T0N:PRINT" ":NE.n 

3900 B$="':G0T03960 

3910 IFJ>LEN(F»{T))THENT=T+1:J=1 

3920 J2=J 

3930 IFMID$(F»(T),J2,1)<>""'THENJ2=J2+1:60T03930 

3940 A*=MID$(F$!T!,J,J2-J)iJ=J2+l 

3950 B»=B»+A$ 

3960 IFJ>LEN(F»{T))THENT=T+1:J=! 

3965 BOT03820 

3970 PRINTB$:RETURN 

Add subroutine. 

4000 SS=0:NI=NI+1 

4005 FRINT:PRINT"Record";NI+l: PRINT 

4010 F0RJ=eT0NH 

4020 PRINTH«!J);:INPUT" : ";I$(NI,J) 

4030 NEHJ 

4040 RETURN 

Change subroutine. 

5000 PRINT:PRINT"{C! Change itei, (K) Keep itei, ar (R) Keep rea 

ainder cf record" 

5030 PRINT:PRINT"Record ";I+1 

5040 CS=l:RS=0:FOR.]=0T0NH 

5050 PRINT:PRINT H»(J);' : "iI${I,Jl;" "; 

5055 IFRS=lTHENPRINT:G0TO5090 

5060 GOSUB 60000; IFAJ<>"C"ANDA«>"c"ANDfi*<>''K"ANDA*<>"k"ANDA$<)" 

R"ANDA$<>"r"THEN5060 

5065 PRINTCHR$(ASC(A$)+32I(A$>"Z")! 

5070 IFAt=°K"0RA$='k"THEN5090 

5075 lFA$="R"ORA$="r"THENRS=l:GOT05090 

5080 PRINT Ht(J);:INPUT" : ";I$(I,J) 

5085 CS=0 

5090 NEXTJ 

5095 RS=0 

5100 IFCS=0 THENSS=0 

5110 RETURN 

Delete subroutine. 

6000 PRINT:PRINT"DELETE THIS RECORD? "; 

6070 BOSUB60000:IFA$<>"Y"ANDA$<>"y'ANDA$<)"N'ANDA*<>"n"THEN6070 

6080 PRINTCHRJ (ASC {A$!+32t (A»)"Z"! ) : IFA$='N"0RA$='n"THEN6150 

6100 FOR II = I+l TO NI 

6110 FOR J=OTO NH 

6120 I«(I1-1,J)=I»(I1,J) 

6130 NEnj:NEUIl 

6135 FORJ=OTONH:I$!NI,J)=":NE)(T 

6140 NI=NI-1:SS=0:I=I-1 

6150 RETURN 

Sort subroutine. 
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7000 IFNI=-160SUB?000:RtTURR 


8260 IFC1(J)=-1THENJ=7:B0T08345 


7010 CLS!FORJ=OTONH 

7020 PRINTJ128+(J»32),"(";J+1;') •;H$(J) 


8270 QNC2(J)B0T08280,B290,B310 
8280 IFI$(I,C1(J))<=C»(J)THEN8330 


7030 NEUJ:PRINT 


8285 G0T08340 


7040 INPUT "SORT ON WHICH HEADINB'jJl 


8290 IFI»(I,C1(J))=C»(J)TH£N8330 


7045 J1=J1-1 


8295 IFRI6HTt(C«(J),n<>'l'THENB340 


7050 IFJKOORJDNHRETURN 


8298 T=LEN(C«IJ))-1;IF LEN(I$II,C1(J)))<TTHEN8340 


7060 PRINT" (A) Ascending or (D) Descends nq':6QSUB60000 


8302 IFLEFT$(I$(I,C1(J)),T)=LEFT$(C»(J),T)THEN8330 


7070 IFA$="A"ORAt='a"THENA=l:60Ta7100 


8305 B0T0S340 


7080 IFA$="D"0RA$="d"THENA=2:BOT07100 


8310 IFI»(I,C1(J))>=C$(J)THEN8330 


7090 SDT070fcO 


8320 B0T08340 


7100 FORI=OTONI-1 


8330 IFBS=2THENAS=l!.J=7 


7110 T=I 


8335 G0TD8345 


7120 FORI1=T+1TONI 


8340 IFBS=1THENAS=2:J=7 


7122 PRINTJ?60,I;I1; 


8345 NEXTJ 


7125 ONfl60T07130,7140 


3350 IFAS=0ANDBS=1THENB355 


7130 IFI*(Jl,Jl)<:i$(T,Jl)THENT=Il 


8352 IFASO1THEN8380 


7135 B0TO7145 


8355 IFSB=1THEN60SUB3300 


7140 IFI$(I1,J1)>I»(T,J1)THENT=I1 


8360 IFSB=20RSB=4THEN60SUB3600 


7145 NEXT 11 


8365 IFSB=3THEN60SUB5000 


7150 IFT=ITH£N7180 


3370 IFSB=4THEN6QSUB6000 


7155 FORJ=OTONH 


8375 IFRS=1 THENI9=I2 


7160 T»=I<iT,J):I$(T,J!=I»(I,J!:I»(I,J>=T» 


8380 NEXTI9 


7170 NEXTJ 


8390 PRINT:PRINT"THAT'S ALL":FORII=1T0500:NEXT 


7180 NEHI 


8400 RETURN 


7200 SS=0:RETURN 






Error subroutine number one. 


Search subroutine. 


9000 PRINT'There's no data in ieiory." 


8000 IFNI=-1THEN60SLIE9000: RETURN 


9010 F0RI=1T01000:M£XT:RETURN 


8010 I1=0:I2=NI:J=0:C1(0!=-1:ES=1 




8015 CLS;PRINT'SEARCH CRITERIA: ":PRINT 
8020 PRINT' ! RECORD NUMBER" 


Print Formatting. 


8030 F0RI=0T0NH:PRINT}(((I + IU32l + 128),I+l;") "H$(I):NEni 


10000 IFF$(0)=""THEN10040 


8035 PRINT: PRINTNH+2;") BEBIN" 


10010 PRINT"SAME FORMAT?"; :BOSLIB60000 


8036 PRlNTNH+3;"} RETURN TO MENU" 


10020 IFA$="Y"ORA»="y"THENRETURN 


8040 PR!NT3B96,;:INPUT'«HICH FIELD"; I; IFI<00RI>NHt3THEN8040 


10030 IFA»<)"N"ANBA$<)"n"THEN10010 


8045 IFI=NH+2THENC1(J)=-1:60T08150 


10040 PR!NT"(L) LOAD FORMAT, OR (C) CREATE FORMAT" ;;60SUE60000 


8046 IFI=NH+3 THEN RETURN 


10050 IFA*="C"ORA$="c'THEN10200 


8050 C1(J)=I-1 


10060 IFA$<>«L"ANDA$<)"rTHEN10040 


8055 CLS:IFI=0PRINTJ128,"SELECTIN6 ON RECORD NUriBER":60T08060ELS 


10090 ON ERROR BQT010170 


E;PRINT!128. "FIELD SELECTED: ";H$(I-1) 


10100 INPUT"FORMAT NAnE:";A$ 


3060 PRINTJ256," INDICATE 11) SMALLER, (2) EQUAL, OR (3) LARGER" 


10110 0PEN"r,2,A$ 


;60SUB60000:C2(J)=VAL(A$):IFr2(J)<10RC2{J!>3THEN3060 


10130 INPUTf2,NF 


8080 PRINT3384, "COMPARED TO: "; :IFC1 (JI^^-ITHENBIOO 


10140 F0RJ=0T0NF:INPLlTt2,F$IJ):NEXT 


8090 INPUT" ";C$(J):J=.J+1:IFJ>7THEN8160 


10150 CL0SE2 


8095 60T08015 


10160 ON ERR0R60T00: RETURN 


8100 INPUT" ";I:IFI<10RI>NI+1THEN8100 


10170 PRINT"FORHAT NOT FOUND" :60SUB60000:RESUME200 


8105 1=1-1 


10200 NF=0:J=0:F$(0)="" 


8110 IFC2(J)=1THENI2=I 


10210 CLS:PRINT"Start in the upper left corner and work across e 


8120 IFC2(J)=2THENI1=I:I2=I 


ach line" 


8130 IFC2(J)=3THENI1=I 


10220 PRINT"1:HEADINB, 2: ITEM, 3:TAB, 4:NEXT LINE, 5:STRINB, 6:E 


8140 60T08015 


ND':INPUTJ1 


8150 IFJ<2THEN8200 


10230 IFJl<iaRJl>6THEN10220 


8160 PRINT9896,"1) ITEM MUST MEET ALL C0NDITIONS":PRINT"2) ITEM 


10240 F$(NF)=Fi(NF)+RieHT$(STR$(Jl),LEN!STR$(Jl))-l):J=J+l 


MAY MEET ANY C0NDITI0N";:BQSUB60000:BS=VAL(A»):IFBS<10RBS>2THEN8 


10250 ONJ1BOT010260, 10260, 10300, 10300, 10350, 10400 


160 


10260 F0RT=0T0NH:PRINT8128+(Tt32)-,T+l;') ";H$(T):NEXT 


8200 PRINT"SEARCHIN6 . . ,':RS=0:IFSB=2THENP0KESC,P1:P0KESC+1,P2 


10270 INPUT"HHICH";T:T=T-1:IFT<OORT>NHTHEN10270 


8250 1=11-1 


10280 B0T010310 


8252 F0RI9=I1T0I2: 1=1+1 


10300 INPUT"HOl( MANY'iT:IFT<10RT>99THENPRIMT"OUT OF RANGE. "rBOTO 


8255 AS=0:FDRJ=0TO7 


10300 
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10310 A»=RIBHT$ (STR$ (T) , LEN (STR« (T) )-l) : IFT< 10THENA$="0"+A$ 

10320 F$(NF)=F$(NF)+A$:J=J+2 

10330 60T010380 

10350 IMPUT'STRIN6:";A$:A«=Ai+"" 

10360 IFLEN(A$)+J>255THENNF=NF+1:J=0:F$(NF)="' 

10370 F1(NF)=F$(NF)+A$:J=J+LEN(At) 

10380 IFJ>252THEHNF=NF+1:J=0:F$(NF)=" 

10390 60T010210 

10400 INPUT'FORflfiT NANE!";A« 

10405 ON ERROR BCT010460 

10410 0PEN"0",2,fl$ 

10430 PRINTI2,NF:F0RJ=0T0NF:PRINTI2,F$(J):NE)(T 

10440 CL0SE2 

10450 DN ERROR BOTOO: RETURN 

10460 PRINT"DISK ERROR':60SUB60000:RESIJ«E10400 

60000 A«="":A»=INKEY»:IFA«=""THEN60000ELSEPRINT:RETDRN 



TRS-80® Random File Database 



The TRS-80® version of SoftSide's random-access 
database program differs from the Apple version in several 
respects. Under TRSDOS, random access files have to be 
"fielded," and in consequence, additional program code 
has been added at line 20000 to permit the computer to 
field each 256-byte disk sector and to distinguish 
automatically between subrecords within each physical 
record. The user only needs to know how much space to 
allocate to each item or heading in the data set; the pro- 
gram then puts as many subrecords as will fit into each 
256-byte sector. 

This fielding process has a few consequences for the 
operator of the database program. The first of these is that 
the user's data set may not be larger than 256 characters 
total. This limitation exists in the Apple and 
ATARI® random-access versions also, though for dif- 
ferent reasons. 

Secondly, it means that the user must give a fair amount 
of thought to the organization of data. Even divisors of 
256 waste the least space. Thus, if a logical record were to 
be 64 bytes long, four such records would be put into each 
disk sector and no space would be wasted at all. If the user 
chooses a logical record length of 129, 127 bytes will be 
wasted in each sector. 

The logical record length is established when initializing 
a new file. It is the sum of the lengths entered for the 
headings, and is of course figured out before setting the 
file's initial parameters. 

Because TRSDOS will not write a record "0" it has 
proved simplest to alter the program's structure so that 
records are numbered from 1 . This change also allows easy 
selection of subrecords by the program logic, which fields 
each physical record as B$(I,J), where I indexes the item 
and J is the subrecord identifying number, again beginning 
from 1 and running to FF, where FF is the total number of 
subrecords in the sector. 

Many different types and sizes of data sets may be 
manipulated with this program without changing the inter- 
nal logic and with little waste of disk space. Vastly greater 
amounts of data can be entered than can be managed in the 
sequential database system, in which all the data is held in 
memory. 



To give an example, if the user had devoted an entire 
40-track disk to the data file, and if each record were 64 
bytes long, this program could manage 1600 records; in 
double-density and with all other factors constant, 2880 
records can be put in. 80-track drives and multiple-head 
drives increase the capacity accordingly. It is also possible 
to span disk within the same file by using standard 
TRSDOS functions. 

The remainder of the program is nearly identical to the 
Apple version. Record deletions are handled by writing a 
"link" number, LK, to the last empty record, and the for- 
matting, data entry, and sorting features are the same. 
Note that lines 270, 380, and 600 have been disabled by 
REMark apostrophes. If your operating system permits ac- 
cess to your disk directory from these BASIC lines, then 
analogous commands for your system will permit you to 
examine your data files without exiting the program. 

Variables 

In additional to those listed for sequential: 

B$(I,J): Fielding array; I counts item numbers, J indexes 

subrecord numbers. 

CH: Array counter to change index array held in 

memory. 

D%: Length of dummy string. 

DS: Index string switch; when 0, search routine calls new 

data heading into memory. 

DU$: Dummy string in fielding routine. 

FF: Number of subrecords in each physical record. 

LK: Link; holds number of record last deleted so empty 

spaces may be filled. 

P%(n): Integer array; holds sorted order of records. 

PR%: Number of the physical record. 

R: Logical record number. 

TI$(n): Holds items to be sorted or searched. 

t TRS-80 Nod 1/3 DISK BASIC $ 
$ "RANDOM DATABASE" » 
$ Author; Mark Pelczarski $ 
♦ Translator; Robert Jacobs $ 
» (c) 19B2, ScftSide $ 



Main Control routine. 

100 CLS;CLEAR20000 

102 SC=16414:S1=PEEK(SC) :S2=PEEK(SC+1) 

103 PR=16422:P1=PEEK(PR):P2=PEEK(PR+1) 
105 DIMC$(7),Cn(7),C2X(7),F$(5):CH=0 

107 DEFFNSB$(A$)=LEFT$(A*+' ",INSTR(A»+' "," ' 

110 PRINT'(I) INITIALIZE A NEK DATA SET" 

120 PRINT" (L) LOAD A PREVIOUSLY SAVED DATA SET"; 

130 G0SUB60000 

140 IFA$="L"ORA*="l"BOSLIB1000i60T0200 

150 IFA$="rORA*=°i"60SUB1500:60T0200 

160 BOTOIOO 

200 CLS:PRINT"(S) Save current data" 

210 PRINT" (P) Print data" 

220 PRINT" (A) Add data" 
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— <=kl=-F=-<=kFC<=!k-r 



I INI 



XT/OO 

■e:f>soivi 



FLEaTEXT/80 provides a SCRIPSIT^" path to EPSON power. Users will 



* Print 



.if3er Bcr i pts 



and 



subscr i pts 



anvwhere in text 



* Underline any te^t (including 



suQer 



and 



sub 



scr- 1 pts) 



* Mi;; 10/inch an(i 14,5/'inch characters (unjustified)., 

(Full lines o-f either width characters will be just i -f i eci . ) 



* Mix normal and 



1 crn~» cj =1 "t:. tis- «dl c: h a r a c t (3 r s; i n a n y -f o r m a t 



(Mixed normal and elongated chiaracters will be just i ■(■ i ed . ) 



* Mix normal and j tax ic characters (even 

* Mix normal and emphasized characters (< 



^ 1. -o ry <:;f tSf it «irT- <df ) . 
' X c=> i~t ^ ^i "t ^ cd t oo ) 



; Th i s 



£2. £2.4 



is in emphasized, elongated, underlined italics.) 



* Dynamically act i vate./deact i vate double strike printing. 

* Dynamically change line spacing (6/1 nch, 8./ inch, 1/11 inch! 



ijet and exercise horij:(Dntal tab stop^ 



such as; 



Tab 1 Tab 



Tab 



Tab 4 



Tata n 



* Print block graphics (<: 



Pr i nt 



graphi cal 1 y stated .' 



BLOCK 



graph! cs . 



* Combine the above demonstrated features in just about any manner 
they want. 

TH 
F"LEXTEXT/80 and £>CRIP51T were exercised in composing this page. 

FLEXTEXT./'BCi is available now from APPARAT. The purchase price is: 

*3^ _ *5»S 



Tfl 



A registered trademark of The Tandy Corporation. 

FLEXTEXT/80 (for MX-80 Printers) Requires Graftrax 



■^K"3 



/\L>'k>'v_>ll v^ I / II lv_^. -On-going Support for Microcomputers' 
4401 S Tamarac Pkwy . Denver. CO 80237 • (303) 741-1778 . (800) 525-7674 

Scnpsit S TRS 80 rfie A registered trademark of Tandy Corporation 
Freight FOB Denver call tor shipping charges Foreign Orders shipped Air Freight 
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230 PRINT" (C) Change a record' 


1615 FF=IHT(256/n):DIMB»(NH+l,FF) 


240 PRINT" (D) Delete a record" 


1620 INPUT"NHICH HEADINB IS THE LONGEST ON WHICH YOU KILL SORT"; 


260 PRINT" (T) Sort" 


J:J=J-1:IFJ<00RJ>NHTHEN1620 


270 'PRINT"(F) File naaes" 


1630 MX=INT((FRE(A»)-20O0)/B5:(J)+2) 


280 PRINT"(N) NeN data file" 


1640 DIMI$(MX),P5:(«X) 


290 PRINT" (Q) Quit" 


1650 BOSUB20000 


297 PRINT:PRINT Nl;" RECORDS FULL, ROOM FOR "jHJ-NI-l;" HORE" 


1660 SS=0:RETURN 


300 60SUB 60000:PRINT 


1700 PRINT:R=P):(I):BOSUB20100 


310 IFA$='S"ORA$="5"SOSUB2000:BOT0200 


1710 BET 2,PRI 


320 IFfl$="P"ORA$="p"60SUB3000:BOT0200 


1720 F0RJ1=0T0NH 


330 IFA$="A"ORA$="a'60SUB4000:GOT0200 


1730 TI*(Jl)=FNSB$(B$IJl,P5i(I)-FF»(PRI-l))) 


350 IFA$="C"ORA»="c"THENSB=3:BOSUBBOOO:60T0200 


1740 NEXT 


360 IFft$="D'ORA$="d"THENSB=4:FS=l:60SUB8000;60T0200 


1750 RETURN 


370 IF A$="T"ORA»="t"THEN 60SUB7000:60T0200 


1800 PRINT: BOSUB20100 


380 'IF A$="F'ORA»=°f"THENG0SUBi00:GOTO20O 


1805 F0RJ1=0T0NH 


390 IFA»="Q"ORA»='q°ORA*="N"DRAl="n"THEN500 


1810 LSET B$(J1,R-FF»(PRM))=TI»(J1) 


410 B0TO200 


1820 NEXT 


500 IFSS=1THEN530 


1830 PUT 2,PRX 


520 S0SUB2000 


1840 RETURN 


530 CL0SE2 




540 IFAt="N"0RA*="n'THEN100 
550 END 


Write subroutine. 


600 'CHD"CIR":BOSUB60000:RETURN 


2000 PRINT;0NERRORSDT02290 




2010 0PEN"0",l,F*+"/HD6" 


Load subroutine. 


2020 PRINTI1,NH;NI;)1X;LK;FF 




2040 FORI=OTONH:PRINTil,H»(I);",";By.(I):NEXT 


1000 INPUT'FILE NAME (NO EXTENTION PLEASE) ";F» 


2050 PRINTKl.BKNH+l) 


1010 0NERR0R60T01230 


2060 IFNI=0THEN2270 


1020 0P£N"r,l,F$+','HD6" 


2070 FORI = lTONl!PRINTIl,Pli(I)iNEXT 


1030 INPUTI1,NH,NI,«1(,LK,FF 


2270 CLOSEl 


1040 ONERRORGOTOO 


2260 ON ERROR GOTOO:SS=1: RETURN 


1130 DII1H«{NH!,BX(NH+l),I${M)(l,PX(«l(),TI$(NH),B«(NH+l,FF) 


2290 PR1NT°DISK ERROR" :60SUB60000:RESUNE200 


1140 FORI=OTONH!lNP!JTIl,H»!I),Ey.(I):NEn 




1150 INPUTIl.BKNH+l) 


Print subroutine. 


1160 IFNI=0THEN1180 




1170 FORI=lTONI:INPUTfl,PX(I!:NEXT 


3000 IFNI=OTHENBOSUB9000:RETURN 


1180 CLOSEl 


3005 CLSiPRINT'iA) SCREEN PRINT, DEFAULT FORMAT 


1190 60SL1B20000 


!B) SCREEN PRINT, SELECT FORMAT 


1200 IFN!=0THEN1220 


(C) LINE PRINT, DEFAULT FORMAT 


1210 60SUB1300 


(D) LINE PRINT, SELECT F0RMflT":IFPEEK(14312)<>63ANDPEEK{293)(>73 


1220 SS=1: RETURN 


THENPRINT:PRINT"PRINTER NOT READY '■:60SUB60000ELSE60SUB60000 


1230 PRINT"FILE NOT FOUND"; :SOSUB60000:RESUME100 


3006 IFA»='A"ORAt='a»THENFS=l:6CT03040 


1300 PRINT:F0RI=1TQNI 


3007 IFA»="B"ORA$="b'THEN60SUB10000:FS=2;BOT03040 


1305 PRX=INT((PX!I)-1)/FF)+1 


3008 IFA»="C"0RAt="c"THENFS=l:SB=2:LPRINTCHR$(32):LPRINTTIMEJ:S0 


1310 BET 2,PRX 


T03060 


1320 I$(I)=FNSB*!B$(CH,PX(I)-FFt(PRM))) 


3009 IFfl»="D"ORA$="d"THENBOSUB10000:FS=2:SE==2:LPRINTCHR$(32):LPR 


1330 NEXT 


INTTIME»:B0T03060 


1340 RETURN 


3010 60T03005 




3040 SB=1:CL5:PRINT"AFTER EACH RECORD <M> KILL RETURN YOU TO MEN 


Initialize subroutine. 


U";PRINT 




3050 PRINT'Press any key . . . ":60SIIB60000 


1500 INPUT"FILE NAME (NO EXTENTION PLEASE) ";F$ 


3060 BOSUB6010 


1510 IFF$=""THEN1500 

1520 INPUT'How «any headings";NH 


3090 IFSB=2THENP0KESC,Sl!P0KESC+l,S2 
3100 RETURN 


1530 IFNH<1THEN1520 

1540 NH=NH-1:NI=0:LK=0:T5;=0 


Print one record to screen. 


1560 DINH$(NH),BX(NH+1),TI$(NH):B)[(0)=0 

1570 FORI=OTONH 

1580 PRINT'Heading r;I+lj:INPLlT " ; "iHJ(I) 


3300 ON FS60SUB 3700,3800 

3340 IFSB=1THEN60SUB60000: IFA*='M"ORA«="i"THENRS=l 

3350 RETURN 


1590 INPUT"I1AXINU« LENBTH : " ; B7. ( I ) ! T)i=TI+B/i ( I ) 


1610 NEXT 


Print one record default format. 
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3700 CLS:PRINT' 'tPRINT-RECORD "jltPRINT" " 


5100 IFCS=0:R=PHI):BOSUB1800:I$(I)=TI»(CH) 


3710 FORJ=OTONH 


5110 RETURN 


3720 PRINTH$(J),TI$(J) 




3730 NEHJ 


Delete subroutine. 


3740 RETURN 


6000 PRINT:PRINT"DELETE THIS RECORD? '; 




6070 B0SUB60000:IFA«<>"Y'ANDA«>'y'ANDA«>"N'ANDA«<>"n"THEN6070 


Print one record custom format. 


6080 PRINTCHR$(ASC(A$)+32KA»>'Z')):IFA$='N'0RA»='n"THEN6150 




6090 LSET B$(0,PI(I)-FF«(PRM))=HKI»(LK) 


3B00 CLS;J=l!T=0;P«="" 


6095 PUT 2,PR5; 


3820 Jl=VAL(NID$(Ft(T),J,l)):J=J+l 


6110 LK=PJ(n 


3830 IFJl<:5THENN=VflL(MID$(F«(T),J,2)):J=J+2 


6120 F0RI1=I+1T0NI 


3840 ON Jl 60103850,3860,3370,3890,3910,3970 


6130 I»(Il-l) = I»{Il);PT.(Il-l)=PI(ni 


3850 A»=H$(N);B0T03950 


6135 NEXTIl 


3BiO A»=TU(N):60T03950 


6140 NI=NI-1:SS=0:I=I-1 


3870 B»=LEFT$(B$,N-1):IFLEN(B«)<N-1THENF0RJ2=LEN(B$)T0N-2:B$=B»+ 


6150 RETURN 


■ *:NEXT 




3880 B0T0396O 


Sort subroutine. 


3890 PRINTB»;IFN>1THENFORJ2=2TON! PRINT" ^NEH 




3900 B«="":GOT03960 


7000 IFNI=0G0SUB9000:RETURN 


3910 IFJ>LEN(F»(T))THENT=T+l!J=l 


7010 CLS:F0RJ=0T0NH 


3920 J2=J 


7020 PRINT3128+(JI32),'(";J+1;') ";H$(J) 


3930 IFniD»(F«IT),J2,l)<>""THENJ2=J2+l;60T03930 


7030 NEKTJ 


3940 A»=HID$!F»(T),J,J2-J):J=J2+1 


7040 INPUT -SORT ON HHICH HEADIN6';J1 


3950 B$=B$+fl$ 


7045 J1=J1-1 


3960 [FJ>LEN(F$(T))THENT=T+1:J=1 


7050 IFJKOORJDNHRETURN 


3965 60T03820 


7055 IFJ1<>CHTHENCH=J1:B0SUB1300 


3970 PRINTBi: RETURN 


7060 PRINT" (A) Ascending or (D) De5cending':eOSUB60000 




7070 IFA$="A'0RA$="a"THENA=l!60T07100 


Add subroutine. 


7080 IFflt="D'0RA$^"d"THENA=2:60TO7100 




7090 60T07060 


4000 SS=0:NI=NI+1 


7100 IFA=1THENF0RI=0T0NI-1ELSEF0RI=1T0NI 


4005 CLS;PRINT"Record"iNI:PRINT 


7110 T=I 


4010 FOR]=OT0NH 


7120 F0RI1=T+1T0NI 


4020 60SUB4500 


7122 PRINTS960,IiIl; 


4030 NEUJ 


7125 0NAB0TO713O,714O 


4040 IFLK=0THENR=Nl!60TD4080 


7130 IFU(I1)(I»(T)THEMT=I1 


4050 R=LK 


7135 60T07145 


4060 BDSUB 20100 


7140 IFI»(I1)>I$(T1THENT=I1 


4070 SET 2,PRI:LK=CVIIB*(0,R-FF«(PRM))) 


7145 NEUIl 


4080 B0SyB1800;PX(NI)=R:I»{NI!=TI<(CH) 


7150 IFT=ITHEN7180 


4090 RETURN 


7155 F0RJ=0T0NH 


4500 PRINTH$(J!;" CjBIIJ) ; "CHARACTERS';" l";:INPUT" : ■;TI«(J) 


7160 T$=I$(T):I$(T)=I<(I):I«{I)=T$ 


4510 RETURN 


7170 Jl=PJ(T):PS(T)=PX(I):Pr.(I)=Jl 




7180 NEXTI 


Cliange subroutine. 


7200 SS=0: RETURN 


5000 CLS:PRINT"(C) Change itei, (K! Keep itei, or (R) Keep reiai 


Searcii subroutine. 


nder of record' 




5030 PRINTiPRINT'Record ';! 


8000 IFNI=OTHEN60SUB9000: RETURN 


5040 CS=:1:RS=0;F0RJ=0T0NH 


8010 Il=l:I2=NI:J=0:Cn(0)=-l:BS=l 


5050 PRINT:PRINT H»(J);' : "jTMIJ);' '; 


8015 CLS:PRINT"SEARCH CRITERIA: ":PRINT 


5055 IFRS=lTHENPRiNT!S0T05090 


8020 PRINT" ) RECORD NUMBER' 


5060 60SUB 60000: IFA$<>'C'ANDA»<>'c'ANDA»<>'K'ANDA«<>'k'ANDAt<>' 


8030 F0RI=0T0NH:PRINT8128+((I+1)»32),I+1;") "H$(I):NEXTI 


R"ANDA$<>'r"THEN5060 


8035 PRINT:PRINTNH+2;") BE6IN" 


5065 PRINTCHR«(ASC(A$)+32t(A$>'Z')) 


8036 PRINTNH+3;"! RETURN TO MENU" 


5070 IFA$='K'0RA»='k'THEN5090 


3040 PRINT8B96,;:INPUT'KHICH FIELD'!l:IFI<OORI>NH+3THEN8040 


5075 IFA$='R'0RA»='r"THENRS=l:60T05090 


8045 IFI=NH+2THENCn!J)=-l:B0T08150 


5080 60SUB4500 


8046 IFI=NH+3 THEN RETURN 


5085 CS=0 


8050 CU(J)=I-1 


5090 NEXTJ 


8055 CLS:IFI=0PRINTJ128,'SELECTINB ON RECORD NUMBER" :B0T08060ELS 


5095 RS=0 


EPRINT812B, "FIELD SELECTED: ";H$(I-1) 
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8060 PRINTJ256, "INDICATE (1) SMALLER, (2) EQUAL, OR (3) LARGER" 
:60SUB60000:C27.(J)=VAL{A»):IFC25;(J)<10RC2I(J)>3THENB060 

3080 PRINT33B4, "COMPARED TO: "pIFCUlJl^-lTHENBlOO 
8090 INPUT" ";C$(J):J=J+1:IFJ>7THENB160 
8095 B0T08015 

8100 INPUT" "jhlFKlORDNITHENeiOO 
8110 IFC25:(J)=1THENI2=I 
8120 IFC2X(J)=2THENI1=I:I2=I 
8130 IFC2X(J)=3THENI1=I 
B140 G0T08015 
8150 IFJ(2THEN8200 

8160 PRINTS896,"1) ITEM MUST MEET ALL C0NDITIONS":PRINT"2) ITEM 

MAY MEET ANY C0NDITI0N";:60SUB60000:BS=VAL(A»):IFBS<;i0RBS>2THEN8 

160 

8200 PRINT"SEARCHIN6 . . . ":RS=0: Jl=Cn(O!:IFSB=2THENP0KESC,Pl:P 

0KESC+1,P2 

8210 DS=0;F0RJ=0T07 

8220 IFCn!J)=-lTHENJ=7:G0TOB240 

8230 IFJl<>Cir.(J!THENJl=-2 

8240 NEXT 

0245 IFJ1)-1 flNDJI<>CHTHENCH=Jl:G0SLIB1300 
8246 IFJ1=-2THENDS=1 

8250 I=I1-1:FORI3=I1TOI2: 1=1+1 

8251 lFDS=0THENTI$(CH)=It(I):B0T0B255 
3252 B0SUB1700 

8255 AS=0:FQR.J=0T07 

S260 IFCU(J)=-1THENJ=7:G0T08345 

8270 0NC2X(J)S0T08280, 8290, 8310 

8230 IFTH{Cn(J)!<=C»(J)THENB330 

8285 G0T08340 

B290 IFTI$(Cn(J.l)=C»(J)THENB330 

8295 IFRI6HT$(C$(J!,1)<>"»"THENB340 

8293 T=LEN(C$(J))-1:IF LEN(TI$(Cn(J!!l<TTHENB340 

8302 IFLEFTt(TI$!ClX(j;),T)=LEFTt(C$(J!,T)THEN8330 

8305 B0TD3340 

B310 IFTI$(Cn(J)))=Ct(J)THEN8330 

3320 B0T0e34O 

8330 IFBS=2THENAS=1:J=7 

8335 B0T08345 

8340 IFBS=1THENAS=2:J=7 
8345 NEXTJ 

8350 IFAS=0ANDBS=1THEN8355 
3352 IFASO1THEN83B0 
8355 IFDS=0THENEQSUB1700 
8360 IFSBO3THENG0SUB3300 

8365 IFSB=3THEN60SUB5000 

8370 IFSB=4THENGOSUB6000 

8375 IF RS=1 THEN 13=12 

8380 NEni3 

8390 PRINT:PRINT"THftT'S ALL":F0RII=1T0500:NEXT 

B400 RETURN 



Error subroutine number one. 



9000 PRINT'There'5 no data in sewry.' 
9010 FORI=1T01000:NEXT:RETURN 



Print Formatting. 

10000 IFF»(0)="THEN10040 

10010 PRINT-SAME FORMAT?"; :60SUB60000 

10020 IFA$="Y"ORA»="y"THENRETURN 

10030 IFA$<>"N"ANDA«<>"n"THEN10010 

10040 PRINT" (L) LOAD FORMAT, OR (C) CREATE FORMAT"; :60SUB60000 

10050 IFA»="C"0RA«="c"THEN10200 

10060 IFA$<>"L'ANDA$<>"rTHEN10040 

10090 ON ERROR GOT010170 

10100 INPUT"FORMA,T NAME:";Ai 

10110 0PEN"r,3,A»+"/FHT" 

1C130 INPUTI3,NF 

10140 FORJ=0T0NF:INPUTi3,F$(J):NEn 

10150 CL0SE3 

10160 ON ERRORGOTOOi RETURN 

10170 PRINT"FORMAT NOT FOUND" :60SUB60000:RESUME200 

10200 NF=0:J=0!Ft(0)="" 

10210 CLS:PRINT"Start in the upper le^t corner and work across e 

ach line" 

10220 PRINT'1;HEADING, 2:ITEM, 3:TAB, 4:NEXT LINE, 5:STRINB, 6:E 

ND':INPUT31 

10230 IFJ1<10RJ1>6THEN10220 

10240 F»(NF)=Ft(NF)+RIBHT»(STR$(Jl),LEN(STR*(Jl))-l):J=J+l 
10250 ONJ1BOT010260, 10260, 10300, 10300, 10350, 10400 
10260 FORT=0T0NH;PRINTJ12B+(T«32),T+l;") ';H<(T):NEXT 
10270 INPUT"HHICH";T:T=T-l!lFT<00RT>NHTHEN10270 

10280 GOTO 103 10 

10300 INPUT'HOH MANY";T:IFT<10RT>99THEMPRINT"0UT OF RANGE. ":60T0 

10300 

10310 A«=RIGHT$(STR$(T),LEN(STR»(T!)-l)!lFT<10THENA»="0"+A$ 

10320 F${NF)=F$!NF)+A*;J=J+2 

10330 BflT010380 

10350 INPUT"STRING:";At:Ai>=A$+"l" 

10360 IFLEN(A»)+J>255THENNF=NF+1:J=0:F$(NF)=" 

10370 F»(NF)=Fi(NFl+A»:J=J+LEN(A$) 

10380 IFJ>252THENNF=:NF+1:J=0:F»(NF)="" 

10390 60TD10210 

10400 INPUT'FORMAT NAHE:";A» 

10405 ON ERROR B0T010460 

10410 0PEN"0",3,A$+"./FMT" 

10430 PRINTt3,NF:F0RJ=0T0NF:PRINTi3,F$(J):NEn 

10440 CL0SE3 

10450 ON ERROR BOTOO:RETURN 

10460 PRINT-DISK ERROR"!GOSUB60000!RESUME10400 

20000 ON ERROR GOTO 20070 

20005 0PEN"R",2,F$+"/DAT" 

20010 FORJ=1TOFF 

20020 n=o 

20030 F0RI=0T0NH 

20040 FIELD 2, DX+(J-l)m AS DU»,BI(I) AS B$II,J) 

20050 D1=DI+BX(1) 

20060 NEXT I:T1=DX:NEXTJ 

20065 ON ERROR GOTO OrRETURN 

20070 PRINT'DISK OR FIELD ERROR; PRESS A KEY TO TRY A6AIN":60SUB 

60000: RESUME 100 

20100 PRI=INT((R-1)/FF)+1: RETURN 

60000 Ai="":A$=INKEYt:IFA»=""THEN60000ELSEPRINT:RETURW © 
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DOSPLUS 

What Does It Mean? 



by Alan J. Zett 

Now that you've been presented 
with the pros and cons of 
DOSPLUS, the next logical step is 
to gain a better understanding of 
how to use it. Learning to use the 
features available in DOSPLUS to 
their best advantage can make your 
programming tasks a lot easier and 
less time-consuming. 

Before you can attempt to use any 
of the new features, a thorough 
understanding of DOSPLUS 
responses to operator input must be 
attained. The most common form 
of a computer-generated reply is the 
error message. One of the first 
things you may have noticed when 
using DOSPLUS is the use of two- 
letter abbreviations for all DOS and 
BASIC error messages. 

To avoid any further confusion, 
this month we present a list of 
DOSPLUS error messages — 
explained. 

/O — Division by zero. 
AD — File Access Denied: 
Password protected file. 
AO — File Already Open: OPEN- 
ing or reOPENing a file not 
previously CLOSEd. 
BM — Bad file Mode: Accessing a 
disk file in a mode other than was 
specified when OPENed, or an in- 
valid mode type. 

BN — Bad file Number: Accessing a 
file buffer not previously OPENed, 
accessing a file buffer with a 
number higher than was reserved on 
entry to BASIC. 
BS — Beyond Subscript error. 
CN — Can't CONTinue. 
DD — ReDIMensioned array. 
DF — Disk Full: All free space on 
disk has been used. 
DS — Direct Statement in file: At- 
tempt to execute or manipulate a 
non-BASIC disk file from BASIC. 
EF — End of File: End of file was 
encountered while accessing a disk 
file. 

FC — Function Call error. 
FD — Bad File Data (on cassette 
I/O). 
FE — File already Exists: Attempt 
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to rename a file to the same name as 
one already in use. 
FF — File not Found: An illegal or 
incorrect filespec was specified, or 
the file is not contained on the disk 
specified. 

FL — Too many Files: All directory 
file entries have been used up. Even 
though there may be enough free 
space on the disk, there is no room 
left in the directory. 
FO — Field Overflow: More bytes 
were allocated in a FIELD state- 
ment than were specified in the LRL 
(Logical Record Length — See 
March, 1982, SoftSide for more in- 
formation) when the file was created 
or OPENed. 
ID — Illegal Direct. 
IE — Internal Error: An error in the 
DOS itself, or a disk I/O error. 
lO — Disk I/O error: An error oc- 
curred between the disk drive and 
the computer during a file access. 
LS — String Length error. 
MM — Mode Mismatch: Attempt 
to access a file in a form other than 
was specified when it was created. 



MO — Missing Operand. 
NF — NEXT without FOR. 
NM — Bad file Name: An illegal 
filespec was specified. 
NR — No RESUME statement. 
OD — Out of Data. 
OM — Out of Memory. 
OS — Out of String space. 
OV — Overflow error. 
RG — RETURN without GOSUB. 
RN — Bad Record Number: A 
record number which is higher that 
the last record in the file, or a 
number less than one was specified. 
RW — RESUME Without error. 
SN — Syntax error. 
ST — String formula too complex. 
TM — Type Mismatch error. 
UE — Undefined Error: This error 
doesn't exist. Possibly an IE error. 
UF — Undefined user Function: An 
FN statement was encountered 
before a DEF FN statement was 
specified. 

UL — Undefined Line number. 
WP — Write-Protected disk: At- 
tempt to write to a disk that has the 
write-protect notch covered. © 



Your Adventures Will Start Here 

Subscribe to 

Adventure of 

the Month 



The cost? A six-month 
membership is just $29 for 
the tape ($4.83 per 
adventure) or $49 for the 
disl< ($8.16 per adventure). If 
you're not sure that you can 
take six full months of 
excitement, you can order a 
single tape for $7 or a disk 
for $10. Or, if you're 
especially adventuresome, 
we're offering disks, packed 
with three great adventures, 
for only $26 per disk. 

To order, use the card provided in 
\h\s issue. 

Adventure of the Month 

6 South Street, 

Milford NH 03055 

See page 16 for ordering information. 




APRIL ADVENTURE OF THE MONTH 
WITCHES' BREW ADVENTURE 

You must find your way to the castle 
and rescue the Princess who is 
chained inside its dungeon. A tightly- 
woven blend of fantasy, horror, and 
science fiction, this complex adven- 
ture will challenge your wits and 
ingenuity. 
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Refware THESAURUS 



A review by Kathleen E. Boucher 



By David C. Whitney (Refware 
Software Division, David C. 
Whitney Associates, Inc.) System 
requirements: 48K TRS-80® Model I 
or III with two disk drives. Sug- 
gested retail prices: Nouns 1.0, 
$39.95; Adjectives 1.0, $39.95; 
Builder 1.0, $149.95; each on disk 
with manual. 



Anyone who has ever had the 
"pleasure" of writing a college term 
paper has had ample opportunity to 
become familiar with Roget's 
Thesaurus. Sometimes it's a real 
chore trying to find the correct word 
to fit into the context of your paper. 
Today, it is much easier to write a 
paper, letter, or presentation on a 
word processor, but there is still the 
fumbling around with the paper- 
back or library edition of Roget's 
work. Now you can update your 
methods entirely with the Thesaurus 
programs designed to save time and 
improve efficiency. 

Each of the three Thesaurus pro- 
grams comes with a separate manual 
and a Model I disk. Should you wish 
to purchase only the manual to ex- 
plore the possibilities of the pro- 
grams, they are available separately. 
Each manual begins with a brief 
history of the original Thesaurus 
and Mr. Whitney's background. It 
proceeds in a very easy-to- 
understand format that requires no 
programming knowledge on the 
part of the user. I went through the 
manuals completely before attempt- 
ing to run the programs and found 
that when I actually started to use 
the programs they were not foreign 
to me. The manuals are designed so 
that the top of each page shows the 
user what the screen display will 
look like in that part of the pro- 
gram. Below that are full explana- 
tions of what this portion of the 
program accomplishes. I don't 
believe the manual could possibly be 
made any easier to follow. 

When you order the Model III 
version the programs are sent on a 



Model I disk "to improve the 
chance that your disk will arrive 
with no lost data." This was 
something 1 was not too familiar 
with but I now understand that loss 
of data is less likely on a single- 
density disk. Converting them to 
run on a Model III required a bit of 
time as the files are extensive, but it 
is worth the trouble. Using a for- 
matted disk, the Nouns program 



Right, No Error, Precise, 

True, Exact, Perfect, 

Strict, Regular, 

Melioration, 

Rectify... 




uses 112 grans and the Adjectives 
program 113. Unless you have a 
double-density disk, there isn't any 
way to append the word lists to be 
contained on one disk. You must 
run either Nouns or Adjectives as 
the need arises. 

THESAURUS: Nouns 1.0 
and Adjectives 1.0 

When looking for a specific noun 
(or adjective), the program will 
search through the 62(X)-word file 
(taking about two minutes) until it 
finds ten related words. If you wish 
to search for another group of 
words, you may instruct the com- 
puter to do so. You may get 10, 20, 



or even 30 alternates for each word 
you select and you will be told when 
it cannot come up with any addi- 
tional ones. 

You have the option of having 
just a listing of the words, or a 
listing of a sentence ten times in 
which a substitute word replaces 
your original word. You can also list 
your choice to the screen or the 
printer. I prefer to have a printout 
with the words in a sentence. Often 
seeing a sentence containing the 
word you're looking for is more 
helpful than the word list alone. My 
only suggestion for improvement on 
this option is that the sentences 
would be easier to read if they were 
doubled-spaced, especially when 
your sentence is quite long, as the 
printout wraps around. But this is 
a minor inconvenience that I can 
live with. 

Another advantage to the Nouns 
and Adjectives programs is the abil- 
ity to find words that are difficult to 
spell. If you wanted to use a word 
but couldn't remember how to spell 
it accurately, just think of a 
commonly-used (and easier to spell) 
synonym, and the computer will 
come up with the rest. 

Both nouns and adjectives must 
be entered in singular form. If you 
use a plural the program will not be 
able to find any substitute. Neither 
nouns nor adjectives may be any 
longer than twelve letters or the 
computer will not accept them and 
will ask you to try again. 

Some words that you may ask the 
Thesaurus to supply may not be ac- 
curate substitutes for the word you 
are looking for. An example is 
airplane. In this case, some of the 
words given are more a part of the 
airplane than an alternate for 
the word itself (e.g., fuselage, 
wing, etc.). 

With files consisting of 6200 
words, I'm sure there will be some 1 
won't find, many I wouldn't need 
anyway, and the most commonly- 
used words will be available at my 
fingertips. I couldn't condemn this 
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program for what words may be looking. . . is 
Roget's Thesaurus all-inclusive? 

When trying to find a noun with the Adjectives 
program, and vice versa, the program will search, but 
not finding the word, will ask you to check your 
spelling. It does not have a default for this, but you 
know the difference between nouns and adjectives in 
the first place. I tried this test only to see if the pro- 
gram would choke up on misinformation. 

The words in both the Nouns and Adjectives pro- 
grams are cross-referenced well. If you get a list of 
ten words from the program, you could also select 
one of the ten and then get a listing with your original 
word included. 

THESAURUS: Builder 1.0 

The Builder program consists of eight separate 
utility programs designed for and used to construct 
the Refware Thesaurus. Instructions are easy to 
understand and you need no programming ex- 
perience in order to build your own specialized 
thesaurus. With this program, the user can design a 
thesaurus for a particular field, whether it be 
medicine, law, business, or any other special- 
ized field. 

A blank, formatted disk is used for your words 
file. It has the capacity for 620 word groups for a 
total of 6200 words. The first time you use this it will 
create a file called WORDS. If you want more groups 
of words, they are added to this file or you may add 
them to another disk. 

Your word files consist of a record number (entry 
number) and group number. The record numbers are 
sequential and the group numbers are either 1 or 2 
depending on which was entered first. Ten words are 
in each group, and the length of each word must not 
be more than 12 letters. If you would like a substitute 
that contains more than one word such as "set of 
rules" (for law), you would fill the spaces with a "#" 
(set#of#rules) and the problem is remedied. 

Any user who constructs a specialized thesaurus is 
asked to submit it to the Refware division for evalua- 
tion with the intent of possibly marketing the product 
commercially with royalties paid to the author. 

ALPHFILE automatically creates an alphabetic 
word file from your Builder program. It takes just 
over ten minutes to create an alphabetic file of 200 
words Oust over three seconds for each). The file will 
then break down and have a separate file for each let- 
ter of the alphabet and contain an alphabetic listing 
of your words. The group and record number are 
also included here in the event that you must make 
corrections or additions to your file later on. 

In READALPH the computer reads the 
ALPHRED summary and pauses in between each 
alpha file and between every 55 lines. This is to give 
you the opportunity to change single sheets of paper 
if you want. 

Disadvantages 

If you accidentally end the program before you are 
actually finished, the program cannot continue with 
just a CONT command. You must again RUN" 
whatever the program name is. This is only if you in- 
struct it to end. Otherwise, the program cannot ac- 
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QC How many times have you racked your brain for just ttie right word 

D- when writing an important letter, report, or article? How many times have 
2j your ideas been misunderstood because the words you used didn't express 
, your thoughts clearly and accurately? 

>- Now, by using the remarkable new REFWARE THESAURUS programs, 

^ your computer can speedily find those words that are on the tip of your 
= tongue but that you cant quite remember at the moment. And it tells you 
^ how to spell them! 

ixj Just slip a REFWARE THESAURUS disk into your disk drive. Then type 
—I in your sentences or paragraphs. The computer will quickly offer a variety 
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I— possibilities chosen from its multi-thousand word vocabulary. It displays 
O the revised sentences on your monitor or types them on your printer as you 
^ choose, so that you can mull them over and choose the one that most ac- 
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3 Having helped thousands of writers learn to express themselves with 
U- clarity as editor of such publications as the World Book Encyclopedia the 
_j Encyclopedia Americana, and the Reader's Digest Almanac and Yearbook, 
David C. Whitney has drawn on decades of editorial experience to prepare 
the revolutionary REFWARE THESAURUS programs, bringing the speed 
and power of the computer to the aid of anyone who wishes to improve his 
writing or speaking. 

In addition to the specific programs capable of substituting suggested 
alternate words for nouns and adjectives, REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists, 
chemists, and other professionals and specialists to develop their own in- 
dividually tailored vocabularies of hard-to-remember technical words. 

REFWARE THESAURUS Adjectives 1.0 

6,200 adjectives assist you in choosing the most accurate modifiers 
in your ads, letters, reports, and speeches. 

REFWARE THESAURUS Nouns 1.0 

6,200 nouns suggest alternates for the names of persons, places, things, 
and ideas that you use in your writing and speaking. 

REFWARE THESAURUS Builder 1.0 

Series of eight utility programs enables the user to develop specialized 
computer thesaurus disk programs of hard-to-remember technical words 
and their alternates for personal use. Functions independently of Adjec- 
tives and Nouns programs. 

REFWARE THESAURUS User's f^anuals: Complete descriptions of use of 
each of the above programs. Included at no additional charge with each of 
program disks listed above. If ordered separately, price of documentation 
is refundable upon receipt of order and payment for program disk. 

MINIMUM System Required IRS 80' Mod I or Mod III 48K with two disk drives. 
■ A Trademark of Tandy Corporation 

REFWARE" Reference software division David C. Whitney Associates. Inc. 

P.O. Box451,Chappaqua, N.Y. 10514 
■A trademark of David C. Whitney Associates. Inc. 
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cidentally reboot while running. It 
cannot be disabled because the 
BREAK key and the CLEAR key 
are not operational. Short of 
rebooting, it will continue on until 
you give the END command. 

Duplicates are not eliminated 
from the word file. If you use the 
same word several times, it will 
show up in your files. Even using 
the ? for the dummy word will show 
in your ALPHFILE as "dummy," 
for whatever amount of times you 
actually used it. 

I get aggravated having to use 
more disks than necessary. I do not 
like to change disks constantly in 
order to use my word file. Using my 
processor, the Builder program, and 
my words disks amounted to three 
disks. On a two-disk system, I 
found I had to keep removing one 
of them. In order to get past this 
obstacle, I again played with several 
of the invisible files. I found that if 
you copy C5 from the Builder pro- 
gram to your words file you will not 
need to use the Builder program to 
utilize your words file. After getting 
into BASIC, all you need do is 
RUN"C5 and your program will 



start with the FIND utiHty of the 
Builder program. From there on, 
you need only concern yourself with 
that part. You don't need to swap 
disks to use your file, only if you 
wish to get into another part of the 
Builder program. 

Each of the manuals advises the 
user not to try to list or modify the 
program. Well, no one can tell me 
not to do something and expect me 
not to! I immediately tried to list the 
program. No luck! All I got was 
some garbled statements which 
looked more or less like the REM 
statements in the manual itself. 
With the help of a couple of pro- 
grammers and a little ingenuity, we 
not only got the word files to list, 
but also to print out. Great! Just 
what I always wanted! A printout of 
6200 words. But wait, I thought. If I 
look at the printed sheet versus call- 
ing up each word to go through the 
program, I can see what all the 
words look like. 

After carefully looking over many 
of the alternate words on the listing, 
I found that although some words 
don't have the alternates I would 
like, the majority of them are just 



the thing. In comparing the listings 
to Roget's (not each one!), I found 
that many of them were either in the 
original Thesaurus or adapted from 
the original. 

Although the concepts behind the 
Thesaurus programs are good, their 
actual operation leaves something to 
be desired. I found it to be a bit of a 
nuisance at first to get out of the 
word processor I was using, load in 
another disk, reboot and get into 
BASIC, find what I am looking for, 
then get back into DOS and my 
word processor. But then again, 
what do you do when that trusty 
thesaurus has been mysteriously 
removed from your desk? 

Once I familiarized myself with 
the three programs, I actually tried 
working with them. They were not 
such a nuisance at all. A minute or 
two here and there is really worth it 
to find the appropriate word for 
your meaning. So, impress people 
with your unlimited vocabulary 
through the use of the Thesaurus 
programs. You'll surprise yourself 
with the amount of knowledge you 
will pick up as you go along. Q 



Microproof 



A review by David A. Kater 



by Phil Manfield (Cornucopia Soft- 
ware, Inc., P.O. Box 5028, Walnut 
Grove, CA 94596) Suggested retail 
prices: 

Standard Microproof: 
TRS-80® Models I and III $69.50 
TRS-80® Model II $149.50 

CP/M $149.50 

Apple $69.50 

Correcting Feature $60.(X) 

Manual only $5.00 

Patches for Electric Pencil 
or Scripsit/ Superscript $3 5 . 00 

Other patches no charge 



A new breed of software has in- 
vaded the word processing scene. 
The market is flooded with speUing 
checkers: programs that simpHfy the 
process of editing and proofing a 
text file. Spelling checkers operate 
by checking each word in a text file 
against a built-in dictionary. Any 
word that is not included in the dic- 



tionary is flagged as a potential 
spelling error. In more sophisticated 
forms, spelling checkers will also 
make grammatical corrections, 
hyphenate text, repaginate text, 
and more. 

What a terrific boon for authors, 
typists, technical writers — anyone 
who uses word processing software. 
Imagine the joy of writing without 
worry, knowing that errors will be 
brought to your attention at the 
touch of a button. Well, it's not 
quite a one-button process, but 
spelling checkers DO take the 
drudgery out of editing a document. 

Be wary of the advertising hype, 
though. Spelling checker programs 
are very useful, but they are not 
mind readers. They can't 
automatically change an incorrectly 
spelled word into the word you 
REALLY had in mind. And they 
have limited ability to catch correct- 
ly spelled words used in the wrong 



context. For example, mistakes like 
"I told you sew" will go undetected 
since each word is spelled correctly. 
So why should anyone buy a 
spelling checker? Because these pro- 
grams can unfailingly catch spelling 
errors in a few minutes that we 
might easily miss after countless 
rereadings. Any word that does not 
match our customized dictionary of 
words is brought to our attention 
for disposition. SpeUing checkers 
can free us to concentrate on 
manipulating words and organizing 
concepts rather than fussing with 
spelling details. Sending a letter to 
an important business contact? Run 
it by your speUing checker first. It 
could save the day. 

Microproof 

Microproof is one of the premier 
spelling checker programs for 
microcomputers and is available in 
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two versions: Standard Microproof 
and Correcting Microproof. 

Standard Microproof works with 
document files created by a word 
processing program. Misspelled 
words are listed to the screen or the 
printer. Corrections can be made us- 
ing the search feature of the word 
processor. 

Correcting Microproof interacts 
directly with the word processing 
program, making it easy to correct 
errors and get back to writing. With 
Correcting Microproof, the correc- 
tions are made automatically and 
saved to disk after the editing 
session. 

Microproof has been im- 
plemented on several different com- 
puter systems. This review covers 
Correcting Microproof as im- 
plemented with TRS-80® Model I 
Scripsit on a two-drive system. 
Some details are specific to the 
Model I and Scripsit, but the overall 
operation is typical of all forms of 
Microproof. 

A User's View 

Model I Correcting Microproof 
comes on a single diskette with files 
on both sides of the diskette. On 
Side One we find: 

ADDTODIC/CMD — Add new 
words to dictionary 
SPATCH/CMD — Program used 
to modify Scripsit or Superscript 
CORRECT 1/CMD — Correcting 
program 

CORRECT2/CMD — Correcting 
program 

MICPROOF/CMD — Microproof 
M/CMD — Links MIC- 
PROOF/CMD to Scripsit 
TEST/CMD — Verifies that 
diskette survived shipment 
(50 free grans) 

On Side Two, there is: 

EXAMPLE — Sample text file 
DICTl — Standard dictionary 
DICT2 — Standard dictionary 
DICT3 — User dictionary 
(10 free grans) 

The first thing to do with the 
Microproof package is backup the 
diskette. The user must move files 
around and change some of them; 
no need to take any chances of los- 
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ing a file. The original diskette 
should be stored in a safe place and 
the backup diskette used as a work- 
ing master. Single-drive owners 
must have NEWDOS or access to a 
two-drive system to make the 
backups (Cornucopia Software will 
do this for a nominal charge). 

Microproof is supplied with a 
TEST program to insure that the 
disk was not damaged during ship- 
ment. Use it on the working master. 

Using the Program 

Now we are ready to proof a 
document. The operation of 
Correcting Microproof is quite sim- 
ple. Once Scripsit has been modified 
with SPATCH/CMD, we are ready 
to test out the program; Microproof 
even provides a sample file for our 
trial flight. We start by loading the 
file EXAMPLE into Scripsit. Then 
activate Microproof with BREAK 
M EXAMPLE. After the file is 
saved to disk in ASCII format, the 
user is prompted to insert the dic- 
tionary disk. I keep all three dic- 
tionary files on the same diskette. If 
they are stored on separate disk- 
ettes, the system asks for them as 
needed. 

The dictionary search is quite 
fast. Proofing times for typical 
documents range from 30 seconds to 
two minutes. This article was 
checked in about one minute. When 
the dictionary search is through, 
misspellings and typos are displayed 
on the screen. When the document 
disk is inserted again, Microproof 
takes us through the list one word at 
a time with the following options: 

1. Correct the word immediately: 

A word is corrected by simply 
retyping it. The corrected text is 
saved as CORRECT/TXT after we 
finish with the entire word list. 



2. + — Add the word to the dic- 


tionary: 

If the word is not really an error, 
it can be added to the dictionary and 
optionally coded as a noun (n), verb 
(v), adverb (a), and/or adjective (j). 
Sample entries: 


-1- 


-l-a 


+ n 


+ J 


+ v 


-l-nvj 



The coding option allows for 
many of the common suffixes 
without taking up valuable disk 
space. One problem with the current 
program: if a word like grans ap- 
pears on the list, there is no provi- 
sion for immediately adding the 
coded root word gran to the dic- 
tionary. The user must make a note 
to manually add it later (see Utility 
Programs below). Words are added 
to the dictionary after the user runs 
through the entire word list. 

3. ENTER — Leave the word alone: 
There may be correct words like 

Phil or Bellevue that we don't want 
in our dictionary. Skip these words 
by pressing ENTER. 

4. ? — View the word in context 
(correcting version only): 

If we are not sure just what to do 
with a word Hke "sdxd," we can re- 
quest to see it in context. This hap- 
pens after all the words are ac- 
counted for and the dictionary is up- 
dated. Hence, the only options for a 
word seen in context are to correct 
the spelling or leave it alone. 

5. ! — Exit the word list: 

Used to leave the word list before 
each word is checked. 

These five options are easy to use. 
You can zip right through the word 
Hst with very little practice. After 
the word Hst is completed, the dic- 
tionary is updated and the user is 
asked to insert the document disk. 
Words in context are then displayed 
and corrected as necessary. The cor- 
rected document is then saved as 
CORRECT/TXT and loaded into 
memory for further editing with 
Scripsit. 



Dictionary Maintenance 

Microproof supports extensive 
dictionary expansion. The 
Microproof dictionary is composed 
of three disk files: DICTl, DICT2, 
AND DICT3. DICTl and DICT2 
contain a standard 50,000-word dic- 
tionary. DICT3 is used to add words 
for special applications. Currently, 
DICT3 is expandable to as much 
space as available on a single 
diskette (about 70,000 words). The 
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easiest way to use DICT3 is to simp- 
ly add words as they occur in all 
word processing endeavors. Heavy 
users run a small risk of running out 
of room on the diskette. If this 
becomes a problem, we can simply 
keep DICT3 on a separate diskette. 
We can even keep a separate 
DICT3 diskette for each use of 
Scripsit. Sample categories might 
be: business correspondence, per- 
sonal correspondence, medicine, 
engineering, microcomputer articles 
and reviews, insurance, club 
newsletter, real estate, law, etc. By 
keeping separate dictionaries for 
each of these applications, we can 
afford room for Aunt Sally in the 
personal file as well as words like 
grans in the micro files. 

Utility Programs 

Cornucopia provides two utility 
programs to improve our control of 
dictionary maintenance. The ADD- 
TODIC/CMD program lets us 
manually add coded or uncoded 
words to the dictionary. Just create 
a normal Scripsit file of these 
words and run ADDTODIC. It will 
add them to the dictionary. A sam- 
ple file might look hke: 

SALLY 

BYTE N 

ENCOUNTER VN 

FAST VNJ 

where N = noun, V = verb, and 

J = adjective 

The second utility program is 
PRINTDIC/CMD. It transfers all 
the words in DICT3 to an ASCII 
format file named DICT3/SRC. 
This new file can be loaded directly 
into Scripsit and edited like any 
text file. (The carriage returns load- 
ed in as Ms on my double-density 
system, but that was easily corrected 
by saving the file with: S,A 
DICT3/SRC then reloading it). 

The DICT3/SRC file can be 
edited to your heart's content: 
delete words, recode words, etc. 
Then save the edited version as 
DICT3/SRC. To build a new dic- 
tionary, replace the current D1CT3 
file with the original one from Cor- 
nucopia, then run ADDTODIC to 
add the words from the edited 
DICT3/SRC file. 



The ADDTODIC and PRINT- 
DIC programs give us complete con- 
trol over the growth of our personal 
dictionary. If and when DICT3 
becomes too unwieldy, we can use 
Scripsit to edit out less-frequently 
used words or break DICT3 into 
smaller dictionaries for specialized 
applications. 

Disk Storage 

Authors of spelling checker pro- 
grams for the Model I computer are 
faced with the problem of limited 
disk storage. Manfield is to be con- 
gratulated for the data compression 
and coding techniques he used to 
cram 50,000-plus words into about 
68K bytes of disk storage (One 
CP/M based spelling checker stores 
45,000 entries in 136K bytes). We 
single-density disk users are quite 
fortunate to have a program with 
tremendous word storage capacity 
on our puny systems. 

Another master stroke in disk 
usage is having the program prompt 
for D1CT3 if that file is not found 
during the dictionary search. This 
means we can keep DICT3 (our own 
dictionary) on a separate diskette. If 
desired, we could even keep a dif- 
ferent dictionary for each writing 
application. So we have virtually 
unlimited word storage capacity. 

There is one feature of the pro- 
gram I would like to see changed: 
Microproof's insistence on creating 
a duplicate copy of the text file on 
disk as CORRECT/TXT. This 
feature forces us to make sure in ad- 
vance that there is enough room on 
the document diskette or the system 
diskette for CORRECT/TXT. A 
system diskette with the 
Microproof programs leaves about 
20 free grans (you can squeeze 25 
out of NEWDOS). As an author, I 
frequently write files that occupy 
more than 20 grans on the disk. 
Grrr. 

My eventual solution to this 
dilemma was to designate a separate 
diskette as a working disk for the 
text file and CORRECT/TXT. 
When I wish to check a file, I save it 
on the working diskette. Using a 
write-protect tab on the system 
diskette forces Microproof to save 
CORRECT/TXT on the working 
diskette. A formatted diskette con- 



tains 67 free grans which should be 
enough space for almost any ap- 
plication. This approach works like 
a charm with little inconvenience. 
Problem solved. 

Those who have upgraded to 
double-density operation will 
wonder what all the squawking is 
about. Space is rarely a problem 
with double-density diskettes. And 
Microproof works fine with a varie- 
ty of the operating systems 
necessary to use double-density on 
the Model I. 



Limitations and Problems 

Spelling checkers are still in their 
infancy. Even though Microproof is 
very powerful, there are a few 
changes that would make it more 
user-friendly. 

I am continually confronted with 
plural forms of words that should 
have been coded as nouns. My only 
options are to enter the plural form 
of these words which takes up space 
in the dictionary, or let the word 
stand in the text, then go back later 
and manually add the properly- 
coded root word to the dictionary. 
Why not give me the chance to add 
the coded root word to the dic- 
tionary when the error is first en- 
countered? It would save a lot of 
headaches. 

I would like to see the need for 
CORRECT/TXT eliminated. Un- 
fortunately, Scripsit itself seems to 
be the source of the problem. It will 
only operate correctly from a fixed 
spot in memory, making storage of 
the entire corrected text in memory 
impractical. 

I could only find a few minor 
bugs in this program. When viewing 
a word in context that happens to be 
in a header or footer, the display 
goes into double-width, making part 
of the text unreadable. You can be 
sure that this will be corrected 
promptly. 

Another problem occurs when no 
corrections have been made to the 
text. In this instance, COR- 
RECT/TXT is not a complete 
duplicate of the text file, but it is 
loaded into memory at the end of 
the proofing procedure. A careless 
user might mistake it for the origi- 
nal text. 
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Documentation 

I found the original Users Manual 
to be the weakest part of the 
Microproof package. Certainly, 
most of the needed information is in 
there somewhere, but I didn't enjoy 
wading through the material that 
didn't pertain to my system. The 
current 33-page manual is an im- 
provement. More emphasis is placed 
on setting up working diskettes and 
explaining how the program in- 
teracts with file storage. 

Once I made peace with the file 
arrangement on the diskettes, I 
found the manual to be helpful. The 
manual addresses using Correcting 
Microproof, using Standard 
Microproof, adding words to the 
dictionary, and deleting words from 
the dictionary. The Appendices 
cover: files included with 
Microproof, working disk prepara- 
tion, patching instructions, poten- 
tial spelling errors, and examples of 
proofing a document and expanding 
the dictionary. 



Customer Support 

The gestation period of this arti- 
cle was fortunately long enough to 
witness several important revisions 
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of Microproof. The program has 
been updated numerous times to 
respond to new versions of word 
processing programs, customer re- 
quests, and new operating systems. 

Current TRS-80® versions 
operate under virtually every known 
operating system including 
DBLDOS, LDOS, DOSPLUS, 
NEWDOS 2.1, NEWDOS 80, and 
of course TRSDOS. There are ver- 
sions for Scripsit on the Models I, 
II, and III and for Superscript, 
NewScript, Lazy Writer, Electric 
Pencil, and CP/M word processors 
like IVord Star and maybe even the 
Apple by the time this article is 
in print. 

Customer requests have 
prompted the addition of the correc- 
ting feature, seeing a word in con- 
text, the PRINTDIC program, the 
ability to edit unlimited pages on 
Model II Scripsit, and even separate 
manuals for the different versions 
of Microproof. Cornucopia was 
also most responsive to pleas for 
help via the phone. 

As for their update policy, soft- 
ware revisions are free within one 
month of purchase and only $10 
thereafter. New manuals are $5 if 
there are any pertinent revisions. 
Cornucopia Software clearly in- 
tends to support their customers. 



Electric Webster 

Speaking of support. Cornucopia 
has just announced their newest 
product. Electric Webster. It 
features greater proofing speed, dic- 
tionary lookup to locate correct 
spellings, and optional grammatical 
checking and hyphenation. 

The cost is $89.50 but it is free to 
Microproof owners who purchased 
after Dec. 1, 1981, and $35 to other 
Microproof owners. 

Summary 

Spelling checkers will change as 
end-users think up more and more 
uses for them. We will see improved 
search times, better handling of 
homonyms, automatic correction of 
common mistakes, statistics like 
total word count and frequency of 
words, and a host of improvements 
we can only guess at now. 

But there is no need to wait if you 
have need of a spelling checker now. 
Microproof has taken a bold step 
toward automating the editing pro- 
cess. With the support offered by 
Cornucopia and the innovation 
already evidenced by Manfield, 
Microproof and its offspring prom- 
ise to continue as leaders in docu- 
ment proofing software. © 



Hexspell 



A review by David A. Kater and David R. Long 



by Bernard J. Hughes (Hexagon 
Systems, P.O. Box 397, Station A 
Vancouver, B.C. Canada V6C 2N2) 
Requires 48K TRS-80® Model I or 
III with two disk drives. Suggested 
retail prices: Hexspell 2 program — 
$99, Manual only — $12 Hexspell 1 
upgrade — $35 

"What will a computer do?" I 
asked. The answer came from the 
salesman without hesitation, "Well 
sir, it'll do anything you tell it to 
do!" 

His answer was a bit of an 
overstatement, at least in 1978. The 
microcomputer revolution was in its 
infancy. Software was very limited 
in scope and available only from the 
hardware vendors. First-generation 
word processing software was 
nowhere to be found. Most pro- 



grammers were busy cutting their 
teeth on a better Star Trek or Hunt 
the Wumpus. 

Microcomputer software has 
come a long way since then. The 
challenge of today's micro user is 
not HOW to acquire software, but 
WHICH program to choose. The 
aftermarket has literally exploded 
with software for business applica- 
tions. Programming has achieved a 
high level of sophistication, in some 
cases rivaling state-of-the-art soft- 
ware on large computer systems. 

The Hexspell 2 spelling checker 
continues this trend of increasing 
sophistication and utility. Most im- 
portantly, it truly applies the princi- 
ple for which the computer was 
devised: to enhance the user's 
abilities relative to a given task. In 
this case, the task is proofreading a 



document. 

Hexspell checks any text file for 
spelling errors. It alerts the user of 
potential errors, then saves the cor- 
rected file. It provides an extra 
measure of insurance against 
shoddy-looking communications. 

Documentation 

The first thing one discovers 
about Hexspell is, of course, the 
documentation. Reading the 
manual is traditionally the most 
abhorrent part of installing a new 
program. Computer "experts" can 
often skip some of the mumbo jum- 
bo; newcomers can't. Fortunately, 
Hexagon Systems makes the learn- 
ing process easy for novice and 
journeyman alike. The 24-page 
manual is EXTREMELY well 
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organized and easy to use. We were 
pleased to find that it clearly ex- 
plains each step of program use in- 
cluding the process of altering the 
program for individual needs. 

The manual includes sections on 
using the Hexspell program, altering 
Hexspell features with the control 
file, extending the dictionary or 
creating a new one with the Clear 
program, using foreign languages, 
typical user questions and answers, 
and an index. 

Nearly every section starts with an 
introduction — very important for 
first-time users. The manual does a 
particularly good job of getting the 
user up and running. It also explains 
how to use the program for several 
different system configurations. 

Operating Hexspell 

The program is activated by typ- 
ing HEX SPELL. A document is 
selected for proofing, and the user is 
prompted to insert the dictionary 
diskette. 

The text scrolls up the screen so 
that the user can visually review the 
document right along with Hexspell. 
The user can interactively vary the 
speed from (peddling as fast as it 
can) to 9 (dead stop). 

Each word in the document file is 
checked against the roughly 4,000 
words in memory and then against 
the SPELL/LST and SPELL/EXT 
files respectively on disk. If there is 
no matching word in the dictionary, 
then the word flashes on the screen 
and we are given three options: 

(S) Skip this word and continue 

proofing. 

(R) Replace this word with a correct 

spelling. 

(L) Learn the word (i.e., add it to 

the dictionary). 

(S) If the word is so outrageous 
that you don't intend to use it again 
(e.g., vavavooooom), just skip the 
word by pressing S. 

(R) If it is clearly misspelled (e.g., 
compewter), press R then retype the 
word. Hexspell will immediately 
check this new word to make sure 
we aren't trying to pull a fast one. If 
it passes the test, the proofing con- 
tinues. Otherwise we are given the 
same three options for the new 
word. This immediate check is a 
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neat feature. It allows us to guess at 
a correct spelling without running to 
a paper dictionary. 

(L) If the word in question is 
spelled correctly, we can add it to 
the dictionary by pressing L. 

When we are finished checking 
the document file, the total word 
count and number of unrecognized 
words are displayed. If changes 
were made, the corrected version is 
automatically copied to the original 
document. We are then given the 
option of proofing another docu- 
ment. At the end of the proofing 
session, the user may delete any 
words from the dictionary. This 
means a quick scan of the list of 
added words that have been ac- 
cumulating on the printer (one of 
the print options). The program 
ends by updating the dictionary files 
on disk. 

Hexspell vs. Batch Programs 

Batch word proofing programs 
operate a bit differently from Hex- 
spell. They break the proofing pro- 
cess into two operations. The text 
file is first checked against the dic- 
tionary while the operator takes a 
coffee break. Then a word list of 
potential errors is displayed, and the 
user decides what to do with the 
flagged words. The words are not 
typically displayed in context. 

The dictionary search is faster in 
the batch programs, but the overall 
time to proof a document AND cor- 
rect errors is about the same for 
both methods. We found that seeing 
the text during the dictionary search 
is preferable to the out-of-context 
approach used by some spelling 
checkers. 

Bright Student 

Hexspell stores up to 4,000 words 
in memory, and up to 25,000 words 
in two files on a single-density 
diskette (more on double-density 
systems). Hexspell uses a unique 
method of customizing this dic- 
tionary to the user's vocabulary. As 
a document is proofed, fre- 
quently-used words are moved 
toward the front of the dictionary. 
Unused words work their way to the 
back. Thus, the dictionary eventual- 
ly sorts itself in most-used to least- 
used word order. The more Hexspell 



is used, the more it adapts the word 
Ust to the user's vocabulary. This 
speeds up the proofing process 
considerably. 

Newly-added words are placed at 
the front of the dictionary. If the 
dictionary ever fills up, the least- 
used words are dropped off the end 
of the dictionary to make room for 
new ones. In this way, the 
29,000-word capacity will 
automatically adjust to the user's 
vocabulary without carrying a lot of 
dead weight. Users with large 
vocabulary requirements can get the 
most out of the storage capacity by 
keeping separate dictionaries 
for different word processing 
applications. 

The main disadvantage of this 
dynamic dictionary approach is one 
of time. There are plenty of com- 
mon words not included in the 
original dictionary. Be prepared to 
spend time training Fido to speak 
your language. 

Auto Learn 

Users with a radical vocabulary 
including scientific formulas or 
technical jargon can use the power- 
ful Auto Learn feature. Simply 
create a file containing a list of new 
words, and turn on Auto Learn. 
Hexspell will learn every word in the 
file. Of course, the new word list 
should be checked carefully before 
being force-fed into Hexspell 's dic- 
tionary. We don't want to turn out a 
poorly-educated spelling checker 
now, do we? 

The Auto Learn feature can also 
be used to teach Hexspell a foreign 
language. The Clear program 
should be used first to clear out the 
current dictionary. 

Customization 

Hexspell 's greatest asset is its ver- 
satility. With a few keystrokes, we 
can alter many of the default 
parameters of the program. Step 
right up and choose your operating 
system, or change default values like 
printer options, alternate character 
set (for Model III), auto learn 
(on/off), extended word Ust 
(on/off), input file name, and word 
file name. 

We can even change what Hex- 
spell does with each of the 256 
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ASCII codes as they are read from 
the document file. This feature 
allows special handling of hyphens, 
apostrophes, lower case, numbers, 
formulas, and more. For example, 
some folks might use a hyphen "-" 
to underline chapter headings. 
Standard Hexspell will stop at every 

heading, displaying " " as a 

misspelled word. Not very amusing. 
But a simple change to the control 
file causes control file causes Hex- 
spell to consider the hyphen as a 
word separator (like a comma or 
space) instead of part of a word. 
That's all it takes. 

Problems 

The user can give the corrected 
document any valid file name. This 
can be a useful feature, but it is too 
easy to misuse. If drive happens to 
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be full (and it will be full if you are 
using the extended dictionary 
SPELL/EXT) and you forget to 
add ":1" to the corrected document 
file name, the program will abort. 
Hexspell hasn't been on the market 
long enough for bugs like this to be 
fully worked out. 

Hexspell does a tremendous 
amount of disk access while it is ad- 
justing to the user's vocabulary and 
word usage. Thus, it is very good at 
finding weak spots on a diskette. 
Double-density users would be well 
advised to use quality diskettes and 
keep their disk heads clean. 

We had trouble getting the ex- 
tended list (SPELL/EXT) to work 
reliably for quite some time. It 
turned out that one particular word 
inexplicably caused the program to 
continually abort. But where there is 



a will, there is a way. We used the 
control program to disable the 
/EXT file, taught the program the 
problem word, then reenab/ed the 
/EXT file. We haven't run into a 
problem since. 

Summary 

In Hexspell 2 we see the computer 
fulfilling its promise. It completes a 
task in a matter of minutes that is 
time-consuming and redundant for 
us humans. For some reason, the 
ability to correctly spell even the 
most common words of the King's 
English escapes many of us. A 
properly-tutored Hexspell program 
can free us from that drudgery. 
Hexspell 2's flexibility and ease of 
use makes it a worthy addition to 
one's word processing library. 



NewScript Version 6.1 



A review by Joseph A. Breton 



From Prosoft, Box 839, North 
Hollywood, CA. For TRS-80® 
Models I and III. Suggested retail 
price: disk — $99.95. 

The search for the perfect word 
processing package is never-ending. 
It's usually necessary to weigh the 
features you want against the 
features available on any particular 
package, and somewhere in there, 
price plays a major part in the deci- 
sion. The TRS-80® owner can 
choose from many packages on the 
market priced from $19.95 to 
$199.95. NewScript Version 6.1 is 
priced right in the middle at $99.95. 

NewScript 6.1 is supplied in 
separate but compatible versions for 
the TRS-80® Models I and III on a 
ready-to-run TDOS (TinyDOS is a 
derivative of DOSPLUS) disk. The 
program is compatible with 
TRSDOS, DOSPLUS, NEWDOS- 
80 or LDOS, but there really is no 
need to transfer the program off of 
the TDOS disk. 

Customizing NewScript 

The first time you run the pro- 
gram you are presented with a series 
of menus that allow you to 
customize your NewScript disk. The 
first menu lists all of the special 




printer drivers that are available. 
The author has thoughtfully pro- 
vided special drivers for the follow- 
ing printers: Centronics 737/ 
ATARI® 825/RS LP-IV, Cen- 
tronics 739, Epson MX-80, MX-80 
with Graftrax, MX-lOO, 
MicroLine-80/82/83, Anadex 
9000/9500, Anadex 9001/9501, 
Modified Selectric Typewriter, RS 
Daisy Wheel-II, Diablo I620/C, 
Itoh Starwriter, and the NEC Spin- 
Writer. This feature allows 
NewScript to use all of the special 
features that are unique to your par- 
ticular printer. If your printer is not 



on the list, NewScript uses a default 
printer table such as you would find 
on Electric Pertcil or Scripsit. 

(A newer version, NewScript 6.2, 
supports the NEC 8023 dot-matrix 
printer and the Prowriter. The 6.3 
version also allows you to use 
Microproof with the correction 
feature. Priced at $149.95, this ver- 
sion fills a complete Model III disk, 
thus necessitating two disk drives. It 
is suggested that purchasers return 
the registration post card; the 
author periodically offers low-cost 
updates to the program.) 

The second menu of NewScript 
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6.1 allows you to specify how your 
printer is attached. It supports 
parallel printers (the assumed 
default), serial printers using the 
RS-232 port, and serial printers us- 
ing the TRS-232 interface from 
Small Systems Software. 

The third menu is to be used 
should you wish to move NewScript 
to a different Disk Operating 
System (but why bother?). There are 
six DOS choices to pick from. 

At this point all of your choices 
are permanently recorded on your 
diskette for future use. You can, of 
course, make changes at any time, 
but in most cases you will not be 
bothered by these three menus 
again. 

Four Programs in One 

As a previous user of Scripsit, my 
first reaction to NewScript was — it 
looks clumsy! The first look 
through the 180-page manual shows 
that NewScript is actually three 
separate BASIC programs held 
together by a fourth program. 

NS/CMD is the Machine 
Language program that handles all 
of the switching between the other 
programs. This allows the fact that 
the two main programs are written 
in BASIC to be well hidden. Other 
functions taken care of by this 
module are a 32-character type- 
ahead feature, a user-adjustable 
auto-repeat, a lower-case driver for 
the Model I, a string compression 
indicator, and the ability to insert 
into your text any ASCII character 
that your printer can handle. This 
means that NewScript can imbed 
GRAPHICS into your text. 

EDIT is used to enter and revise 
text, as well as save it to disk. A line 
can have up to 255 characters on it, 
however, you may view only 60 
characters at a time. Unlike Scripsit, 
the screen does not automatically 
scroll horizontally. If you wish to 
set up a chart of 132 characters 
across, for example, you use the 
View command to specify which 
60-character section you wish to see 
at a particular time. Normally, the 
text automatically wraps around at 
the end of the line (at the 60th 
character or at the end of the word 
prior to the 60th character). You 
never have to hit ENTER at the end 
of a line of text, so you can just keep 



on typing. The extended line is only 
needed to do charts, etc. 
In the EDIT mode, the screen is 
divided into four sections. The top 
line is called the Command Line, the 
left-most column is called the LIMA 
(the Line Manipulation Area), the 
bottom line is used for a Character 
Grid (this can optionally be turned 
off). The middle 14 or 15 Hnes 
(depending if you use the Grid) is 
the text area. This is where most of 
the action takes place. 

The LIMA is a powerful, simple- 
to-use editor. This editor is very 
useful for any manipulations that 
involve the whole line such as 
deleting one or more lines, inserting 
one or more lines into the text, mov- 
ing a line or replicating a line 
elsewhere in the text. 

To use the main editor place com- 
mands in the Command Line. There 
are 56 commands for doing text 
manipulation from the Command 
Line. It is possible to do word loca- 
tion, global search and replace, 
search and delete, etc. 

One of my favorite commands is 
appropriately named Whoops. This 
command allows you to make 
changes on the screen and then after 
thinking better of them, cancel them 
with one key stroke. 

The main editor is capable of 
working with 400 lines of text in 
memory at a time. At first this 
seems a bit limiting, but there are 
two extra commands that allow you 
to handle a document of any size. 
The first is the IMbed command. 
Followed by a file name, this com- 
mand will insert the entire named 
file at a specified point, and then 
continue with your text when print- 
ing. The second command is the Ap- 
pend command. Placing this com- 
mand at the end of a document 
followed by a file name, will append 
the next document without stopping 
during the printing process. 

SCRIPT is the text formatter 
printing program. You enter almost 
all of the commands it uses while in 
the Edit program. The main pur- 
pose of the Script program is to for- 
mat and print a document to your 
specifications. To do this task. 
Script uses 45 commands of its own, 
plus nine additional escape se- 
quences to control your printer. 
These commands control the page 
format by margins, justification, 



spacing, pitch, automatic indenta- 
tion, various titles and automatic 
page numbering. 

When Script is running there are 
an additional 10 run-time options 
which can make changes just for 
that one printing session, without 
saving the changes to disk. These 
options include double or triple 
spacing, extra copies, printing just 
the third page, etc. The program 
also supplies a unique mini-edit 
mode that allows you to delete, 
replace and insert lines during the 
printing session. 

INDEX is a program that will sort 
(alphabetize) and merge words and 
phrases that you have marked as key 
words while creating your docu- 
ment. This feature makes it quite 
simple to provide easy references for 
medium to long documents. 

NewScript in Use 

From the description above, it 
would seem that NewScript is very 
complicated to use. Not really. In 
fact, if you do not already have the 
operating procedures for one or 
more word processors already com- 
mitted to memory, I would say that 
NewScript is probably one of the 
easiest and most logical to use. 

The manual has a How-To sec- 
tion which makes it easy to learn 
how to do: form letters with 
variables supplied from your mail- 
ing list, mailing lists, titles, indices, 
predefined standard setups, hanging 
indents and long documents. The 
power that is in this package can on- 
ly be equalled by purchasing several 
software products at a far greater 
total cost. 

I do not consider myself an ac- 
complished author. In fact, the last 
time I wrote anything like this was 
probably a high school book report. 
(1 think I got a C -t- .) But every now 
and then I come across a product 
that is great and nobody seems to 
know about it. The reason for this 
review is that I use and appreciate 
NewScript. If you are looking for a 
word processor for your TRS-80®, 
or you're not satisfied with the 
limitations placed on you by your 
present word processor, I firmly 
believe that you get more than your 
money's worth from NewScript. 
Thank you, Chuck Tessler, for a 
great word processor and keep on 
improving it. O 
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NEW PRODUCTS 



MENLO SYSTEMS 

3790 El Camino Real, Suite 221 

Palo Alto, CA 94306 

(415)327-7424 

Autoplot from Menlo Systems opens 
powerful high-resolution graphics 
capabilities to the owner of a Radio 
Shack 48K TRS-80® Model I/III 
microcomputer with one disk drive. Us- 
ing an Epson MX-80 or MX-lOO printer 
with GRAFTRAX as output device, this 
curve-plotting program creates graphs of 
professional quality, with a resolution of 
480 X 192 dots. 

Autoplot is written in Disk BASIC, 
enhanced by fast Machine Language 
routines in iiigh RAM. Data points are 
entered with a small user-written BASIC 
subroutine. A few program lines are suf- 
ficient to calculate mathematical func- 
tions, request input from the keyboard, 
or read data from a disk file (i.e., 
Visicalc or Scripsit file.) Many options 
can be selected with some extra 
keystrokes. Autoplot does all the rest 
automatically in minutes. 

By selecting options, the user can 
override the automatic sealing of the 
axes, plot continuous curves or 
separated markers, choose linear or 
logarithmic presentation, request a grid 
overlay, compute derivatives or in- 
tegrals, plot more than one curve, or 
select from four different print sizes and 
formats. 

Despite its power and versatility, 
Autoplot is extremely easy to use and 
comes with a 45-page manual. Autoplot 
is available on disk for $79.50. A version 
for the LNW-80 at $99.50 displays the 
graph in full resolution on the video 
monitor, before it is printed. 




CUESTA SYSTEMS INC. 
3440 Roberto Court 
San Luis Obispo, CA 93401 
(805)541-4160 

Computer Insurance — The 
Datasaver from Cuesta Systems Inc. 
safeguards the time and information in- 
vested in high technology systems by 
protecting electronic equipment against 
unexpected power failures or sudden 
surges that can cause many systems to 
fail. The unit, priced from $395, is 
available immediately. 



SYBEX 

2344 Six Street 
Berkeley, CA 94710 
(415)848-8233 

From Chips to Systems: An Introduc- 
tion to Microprocessors is a brand-new, 
beautifully illustrated book written for 
all owners and users of personal and 
business computers. This book carries 
the reader on a fast-paced journey 
through the world of microprocessors — 
explaining what a microprocessor is, 
what it does, and how it does it. 

From Chips to Systems, written by 
Rodnay Zaks in a vivid, direct style, will 
quickly show the reader how easy it is to 
understand the microcomputer 
technology which is already changing 
the shape of the future. Rapid advances 
in technology have made it possible for 
all of us to look forward to using a per- 
sonal computer to enhance and improve 
the quality of daily life. 

This book, priced at $14.95 is a com- 
prehensive reference tool which is re- 
quired reading for anyone who wants to 
have an inside track on the technology 
which is revolutionizing the future. 
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In an effort to inform our readers of new products, SoftSide welcomes your 
company's input to this section. Send all information to: 

SoftSide Publications 6 South Street Milford, NH 03055 



GAMMA SOFTWARE 

P. O. Box 25625 

Los Angeles, CA 90025 

(213)473-7441 

Hockey is a high-speed action game 
for a 16K ATARI® 400/800 and is 
available on cassette or disk. This 
Assembly Language game makes use of 
high-resolution color graphics and 
generates a variety of sounds including 
music and crowd noise. It offers nine 
different game options. 

Hockey is played on an enclosed rink, 
with scoreboard including clock 
overhead. The game is for two, three, or 
four players, who use joysticks as con- 
trollers. The three-player version is a 
novelty in which two players team up 
against the third. 

Offensive players carry the puck, pass 
and shoot. Defensive players steal the 
puck and intercept passes. Goalies block 
and clear shots on goal. 

An advanced feature of the game is 
the inclusion of "smart" players who 
perform automatically. In case of a tie 
after regulation time, the game goes into 
sudden-death overtime. 

Both cassette and disk versions sell for 
$29.95. 



THE ALTERNATE SOURCE 

1806 Ada Street 
Lansing, MI 48910 

(517)487-3358 

A new software package, the 
Automatic Density Recognition for 
NEWDOS/80 2.0, solves the number 
one complaint expressed by users of that 
popular system — the elimination of 
manual manipulation of the PDRIVE 
parameters when using various combina- 
tions of single- and double-density 
diskettes. Interested users may request 
information on the Automatic Density 
Recognition package by asking for the 
"DDSD flyer." 

DDSD was designed by Allan J. 
Domuret, noted author for many 
popular computer magazines. DDSD is 
no more complicated than executing it 
from DOS READY. No disk ZAPs of 
any kind are required. DDSD can even 
be an "AUTO" file executed every time 
the user boots the system. This program 
functions with all TRS-80® DOS systems 
and will not adversely effect fast CPU 
clock systems. DDSD will load itself at 
top of available memory, respecting any 
and all programs present and is compati- 
ble with both Models I and III. 
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Back Issue 
of the 
Month: 
December 
1980 



The December, 1980, SoftSide boasts 11 feature programs, 
a couple of short routines, articles and reviews. This issue con- 
tains Developing Database Part 4. 

For the TRS-80® : Kidnapped, an adventure; Missile Eva- 
sion; Word Problems; Command; and Space Dodge whose 
ATARI® version is also included. Other ATARI® programs: 
Speedello, an Othello-like game; and States and Capitals. Ap- 
ple programs: Baseball, Connect- A-Dot, and Christmas Card. 

While they last, copies of the December, 1980, issue of Soft- 
Side are available for a mere $3.50. For a bit more we'll in- 
clude a cassette ($9.95) or disic ($14.95) containing all the pro- 
grams for your computer that appear in the issue. Remember 
to specify what computer you use when ordering the magazine 
and media combinations. Order now and prepare yourself for 
yet another magazine full of top-notch software for you and 
your family to enjoy. 

See ordering information on page 16. 



Advertiser's Index 



Amp Recordings 65 

Apparat, Inc 17, 81 

Automated Simulations 32 

Continental Adventures 60 

Diversions Cover II 

Icom 33 

National Computer Shows 1 

Northeast Expositions 4 

Refware 87 

SoftSide 10, 85, 96, Cover III 

Strategic Simulations Cover IV 

The Software Exchange 20 








so 
Dor^'T vo 

THAT 





VouAk^natwistv 
haz^ of uttu^ 




IM AtmjistV 
FA55A6^5, Au^ 





T^^AT'S NOT 
1W^PRP6RAM 
X6AV^ VW 







^ 


- 




A 


T] 


p 


1 « . . \ 




■4'-*2' 



AKN^6H ! 




Vou t>o lUMAt VOO 




96 April 1982 



SoftSide 



STOP TYPING! 



Get Instant Enjoyment from SoftSide's programs with SoftSide's 
Cassette Version (CV) and Disk Version (DV)! 

Our media editions let you spend less time TYPING — and more time USING the 
fine software that SoftSide brings you every month. And we let you choose the 

version you want. 



Cassette Version (CV) 

SoftSide's Cassette Version (CV) offers you an inexpensive way 
to enjoy our programs without hours of typing or hunting for 
errors. Ali programs are tested and ready to go! 

CV gives you the programs offered for your system each month 
in SoftSide on a tape, pius the magazine itself — 
12 magazines and 12 tapes per year for just $75. 



Disk Version (DV) 



DV contains a BONUS program for your system on the disk In 
addition to the other programs available that month. Only the 
documentation for the bonus programs will appear In SoftSide 
magazine, NOT the code. The bonus programs will be of every 
conceivable type — multiple and Machine Language programs, 
modified languages, ongoing modular programs and software 
so extensive, It would tal^e an entire Issue of SoftSide just to 
print the code. 

Feel lll<e you're missing something? You are. Don't wait to take 
advantage of our offer — 12 magazines and 12 disks for just 
$125 a year. For orders outside the U.S., add $50. For your 
convenience we also offer an Installment payment plan for 
MasterCard and VISA holders: Pay just $32.50 per quarter (a 
total of $130 which Includes a $5 billing charge). 

To order, use the card provided In this issue. 
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TWO NEW GAMES FROM SSI FOR THE 

APPLE' 
A ND THE 
TRS-80i 




THE BATTLE OF SHILOH: A brigade-level sir 



tie ofthe Civil War, 



pitting the Confederate Army against Grant's troops and Union gunboats. 





VVe know it hasn't been easy 
for you TRS-80® owners to see so 
many great made-for-Apple-oniy 
games from SSI pass you by. But 
then, it hasn't been easy for us to 
design games for a 16K cassette 
format good enough to meet our 
critical standards. 

After all. we've got a reputa- 
tion to protect, a reputation in 
strategy gaming for unsurpassed 
sophistication, innovation, realism, 
and piayability. 

Weil, our designers have been 
hard at worK and we've not only 
met but surmounted the challenge. 
We're delighted to announce two 
historical wargames — deserving 
of the SSI label — for both the 
Apple® and the TRS-80® (16K 
cassette for the TRS-80 Model I 
and 111; 48K disc for Apple II with 
Applesoft ROM card). 

Combining our extensive war- 
game-design experience and superior 
programming techniques, we've 
given a fresh new look and feel to 
these favorite classic battles. 

At $24.95 each for TRS-80 
cassette and $39.95 each for Apple 
disc, these are extraordinary games 
at quite an ordinary price. 

So head on down to your 
local store and check them out 
today! 

VISA and M/C holders can 
order by calling 800-227-1617. 
ext 335 (toll free). In California, 
call 800-772-3545. ext. 335.. 

To order by mail, send your 
check to: Strategic Simulations Inc. 
Dept SS-1. 465 Fairchild Drive. ^ 
Suite 108. Mountain View. ' 

California 94043. 

All our games canry a 14-day 
money-back guarantee. 



TIGERS IN THE SNOW: Ghostlike Nazi Tiger tanks and Infantry sweep across the dark, 
frozen forests ofthe Ardennes against a surprised U.S. force in this division/ regiment-level 

simulation of Hitler's last desoerate attack 



As part of our demanding standards of excellence, we use ITIBXBll floppy discs. 

Apple is a registered tradema* of Apple Computer Inc TRS-80 is a registered trademark of the Tandy Corporatioa 
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